3
我试图解决我自己就在tm
包改变TF-IDF权重函数问题的文件:https://stackoverflow.com/questions/15045313/changing-tf-idf-weight-function-weight-not-by-occurrences-of-term-but-by-numbe无法找到一个R函数row_sums和col_sums
在这样做时,我在看的weightTfIdf
函数,其中包括m
(TermDocumentMatrix)上的以下代码。
cs <- col_sums(m)
和
rs <- row_sums(m)
但我找不到的功能row_sums
或col_sums
任何文件;当我尝试使用它们编写我自己的权重函数时,出现错误:Error in weighting(x) : could not find function "col_sums"
这些函数在哪里定义?
我从下面R
粘贴功能齐全的信息:
function (m, normalize = TRUE)
{
isDTM <- inherits(m, "DocumentTermMatrix")
if (isDTM)
m <- t(m)
if (normalize) {
cs <- col_sums(m)
if (any(cs == 0))
warning("empty document(s): ", paste(Docs(m)[cs ==
0], collapse = " "))
names(cs) <- seq_len(nDocs(m))
m$v <- m$v/cs[m$j]
}
rs <- row_sums(m > 0)
if (any(rs == 0))
warning("unreferenced term(s): ", paste(Terms(m)[rs ==
0], collapse = " "))
lnrs <- log2(nDocs(m)/rs)
lnrs[!is.finite(lnrs)] <- 0
m <- m * lnrs
attr(m, "Weighting") <- c(sprintf("%s%s", "term frequency - inverse document frequency",
if (normalize) " (normalized)" else ""), "tf-idf")
if (isDTM)
t(m)
else m
}
<environment: namespace:tm>
attr(,"class")
[1] "WeightFunction" "function"
attr(,"Name")
[1] "term frequency - inverse document frequency"
attr(,"Acronym")
[1] "tf-idf"
谢谢你的回答,不仅回答我的问题:col_sums;但它向我展示了未来如何成为更好的R用户。真的是一个很好的答案。谢谢。 – cforster 2013-02-24 19:46:15
+11,以便进一步了解并展示如何查找源代码!做得好 – 2013-02-24 21:41:42
@RicardoSaporta - +11 - 太离谱了! :-) – thelatemail 2013-02-24 22:00:10