请教计算修正的余弦相似度问题

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

修正的余弦相似度代码如下：
Similarity <- function(R){
  n <- nrow(R)
  s = matrix(0,n,n)
  for (i in 1:n){
    for (j in 1:n) {
      if(i < j){span = ""
      num <- intersect(which(R[i,] != 0), which(R[j,] != 0))
      mean <- rowMeans(R)   

      sum <- 0
      sum_u <- 0
      sum_n <- 0
      for (z in num){
        sum <- sum+(R[i,][z] - mean[i])*(R[j,][z] - mean[j])
        sum_u <- sum_u+(R[i,][z] - mean[i])^2
        sum_n <- sum_n+(R[j,][z] - mean[j])^2
      }      
      s[j,i] <- sum/(sqrt(sum_u)*sqrt(sum_n))
      } }} }

运行之后出现了问题：
Error in s[j, i] <- sum/(sqrt(sum_u) * sqrt(sum_n)) : incorrect number of subscripts on matrix


我尝试修改，但是还是报错。请教下大家，到底哪里出错了，还有这代码写&#127568;对不对。。。十分感谢[em23]

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：余弦相似度 相似度 修正的

楼主您好！请问您找到解决方案了吗？？？