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