zngtian 发表于 2015-1-5 23:03 
最后一句写的有点恶心,但是意思差不多。
我的程序中有这一句话:
each_xulie=sapply(unique(m[,1]),function(x) sum(with(subset(recommendation[user==x,]),which(item==(subset(m,m[,1]==x&m[,2]==m[,4])$item.x))))/sum(recommendation[,1]==x))
然后有时候(subset(recommendation[user==x,]),which(item==(subset(m,m[,1]==x&m[,2]==m[,4])$item.x))中的后面item的值可能有两个或者更多,这样r中默认就算了一个,请问如何处理呢?