R語言-任意欄位間的距離計算

loop 迴圈 r

Denny Chang 2021-04-18 16:49:26 ‧ 1183 瀏覽

分享至

大家好，小弟是個迴圈菜鳥，只懂最基本的邏輯，最近想看任兩個欄位之間的歐式距離(不包含自己跟自己)，但是一直錯誤，想詢問解決方法，或是相關網站也行，謝謝大家~

data(iris)
library(TSdist)
EuclideanDistance(iris$Sepal.Length, iris$Sepal.Width)
loop <- iris[,1:4]
ncol(loop)
out = data.frame()
for(i in 1:ncol(loop)) {
  for (j in 1:ncol(loop)) {
    a=EuclideanDistance(i,j)
    out[[i,j]] = as.data.frame(a)
    final = subset(out[[i,j]] < 100)
  }
}

登入發表討論

直播研討會

{{ item.channelVendor }} {{ item.webinarstarted }} |

直播中

1 個回答

obarisk

iT邦研究生 1 級 ‧ 2021-04-19 09:09:02

最佳解答

NCol <- ncol(loop)
out <- matrix(NA, NCol, NCol)
for (i in seq_length(NCol)) {
  for (i in seq_length(NCol)) {
    out[i, j] <- EuclidenDistance(loop[, i], loop[, j])
  }
}