R语言实现LaplacianScore过程出现问题

Question

问题遇到的现象和发生背景

生成相似矩阵S

问题相关代码，请勿粘贴截图

while(i<=150){
    while(k<=5){
      while(j<=5){
        if(i %in% cols[cols[i,j],k]==T){
          Acc[i]=exp(-c[i,j]^2)
          S[i,cols[cols[i,j]]]=Acc[i]
        }
        else j<-j+1
      }
      k<-k+1
    }
    i<-i+1
}

运行结果及报错内容

Acc和S都是空的

我的解答思路和尝试过的方法

我解决不了

我想要达到的结果

我想知道怎么就解决

Answer 1

你检查一下这句：
if(i %in% cols[cols[i,j],k]==T)
应该是条件不满足