嵌套For循环中的R函数

时间:2016-04-06 22:00:14

标签: r for-loop

我在两个数据集的所有组合上应用自定义函数。有没有更有效的方法来实现这一目标?

ptm <- proc.time()
for (i in 1:nrow(x)) {
  d <- list()
  for (j in 1:nrow(centroids)) {
    d[j] <- f_dist(x[i,],centroids[j,])
  }
  x[i,]$cluster <- which.min(d) 
  x[i,]$dist_from_centroid <- d[which.min(d)]
}
proc.time()-ptm

0 个答案:

没有答案