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

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

生成相似矩阵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都是空的

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

我解决不了

我想要达到的结果

我想知道怎么就解决

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

您好，我是有问必答小助手，您的问题已经有小伙伴帮您解答，感谢您对有问必答的支持与关注！
PS：问答VIP年卡 【限时加赠：IT技术图书免费领】，了解详情>>> https://vip.csdn.net/askvip?utm_source=1146287632