1

我正在尝试编写一个代码来获取矩阵 V。 V 给出了如图所示。Wijmatrix(1,n,n) 这就是我目前所拥有的，但它给了我一个只有 1 和 11 的矩阵。它认为这是不对的。有人可以告诉我我做错了什么吗？

V <- function(X) {
  row_V <- nrow(X)
  value_v <- matrix(0, nrow = row_V, ncol = row_V)
  i <- 1
  j <- 1
  X_matrix <- as.matrix(dist(X))
  for (i in 1:nrow(value_v)) {
    for (j in 1:ncol(value_v)) {
      if (X_matrix[1,j] == 0) {
        value_v[i, j] <- 0
      }
      else {
        value_v[i, j] <- -1
      }
    }
  }
  for (i in 1: nrow(waarde_v)) {
    if (value_v[i] == value_v[i])
      value_v[i, i] <- -1 * sum(value_v[i,])
  }
  return(value_v)
}

我正在使用这个数据集矩阵：

  V1 V2 V3 V4 V5 V6 V7 V8 V9 V10 V11 V12
1   0  6  9 17 16 18 32 19 27   7  24  30
2   6  0 14 21 22 29 31 15 26  10  27  36
3   9 14  0  8 15 11 30 20 25  13  27  22
4  17 21  8  0 18  6 29 24 29  21  32  18
5  16 22 15 18  0 23 44 34 40  13  15  20
6  18 29 11  6 23  0 22 19 18  23  37  22
7  32 31 30 29 44 22  0 16  5  38  55  44
8  19 15 20 24 34 19 16  0 13  25  42  41
9  27 26 25 29 40 18  5 13  0  33  50  41
10  7 10 13 21 13 23 38 25 33   0  17  30
11 24 27 27 32 15 37 55 42 50  17   0  33
12 30 36 22 18 20 22 44 41 41  30  33   0
4

0 回答 0