修正的余弦相似度代码如下：
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]