如题:把得到TDM转化为矩阵之后做如下操作
spam.matrix <- as.matrix(spam.tdm)
spam.occurrence <- sapply(1:nrow(spam.matrix),
function(i)
{
length(which(spam.matrix[i, ] > 0)) / ncol(spam.matrix)
})


雷达卡





京公网安备 11010802022788号







