我最近遇到了一个问题
sum <- (abs(x[i, i] - x[i, j])^p) ^ (1/p)
例如,我希望它是x[1,1]
、x[2,2]
等。所以我认为for循环中的x[i,i]
可以完成这项工作,但结果它只返回0。
example <- function (x,p) {
sum <- 0
for (i in 1:ncol(x)) {
for (j in i:nrow(x)){
sum<-(abs(x[i,i] - x[i,j])^p) ^ (1/p)
}
}
return (sum)
}
#x is a matrix
发布于 2018-05-31 19:17:02
每次循环时都要替换sum,这是sum <- sum + (abs(x[i,i] - x[i,j])^p) ^ (1/p)
应该做的。
https://stackoverflow.com/questions/50622917
复制相似问题