想要用R语言实现这个式子,我写的R代码:
W<-0
for (m in 1:nrow(X)) {
for (n in 1:nrow(Y)) {
matrix<-as.matrix(X[m,]-Y[n,])
W<-W+exp((-t(matrix)%*%(matrix))/(4*0.05^2))
}
}
其中矩阵X=[c(1,2,3),3,3],矩阵Y=[c(3,3,3),3,3]
出来的结果W=0,
应该是(0,1)之间的数,等于0的话后续计算会出问题
哪位大神可以告诉哪里出了问题