在for循环中维护x[i，i]的困难

我在工作中遇到了问题

sum <- (abs(x[i, i] - x[i, j])^p) ^ (1/p) 

---

每次循环时都要替换sum，

---

sum每次循环时都要替换sum，
sum请拿一个。由于格式错误，您的文本无法阅读。请始终查看您在评论部分的帖子。表明你已经尽了最小的努力来回答你的问题。如果你这样做了，人们会愿意付出一些努力来帮助你欢迎你这样做。即使你得到了一个答案，你仍然应该改进你的问题的格式，并包括一个。当你的问题不那么琐碎时，这将帮助你得到答案。由于格式错误，您的文本无法阅读。请始终查看您在评论部分的帖子。表明你已经尽了最小的努力来回答你的问题。如果你这样做了，人们会愿意付出一些努力来帮助你欢迎你这样做。即使你得到了一个答案，你仍然应该改进你的问题的格式，并包括一个。这将帮助你在问题不那么琐碎的时候得到答案。如果答案有用，你可以通过接受答案来感谢我！第一次发布，所以我有点了解它是如何工作的。再次感谢！如果答案有帮助，你可以通过接受答案来感谢我！第一次发布，所以我有点了解它是如何工作的。再次感谢！
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