r中2个数据集之间的向量欧几里得距离

Question

我有2个数据帧（temp_inp和temp），分别具有5和50k行，并且它们都具有约3k列。

我想计算欧几里德距离[（x1-x2）^ 2-不需要取平方根或除以nrow-我只需要dataframe1的所有行与dataframe 2之间的最小距离的行]。

所需的最终输出将具有行=来自temp（50k）的行=来自temp_inp（5）的行

之后，我想以5行与数据框1保持最小距离。

请注意，由于数据大小，类似rbind＆dist函数的功能将无法使用。 我试过的是：

for (i in c(1:nrow(temp_inp))) {
for (j in c(1:nrow(temp))) {
  temp1[j,i] <- sum((temp[j,]-temp_inp[i,])^2)
}}

这要花费大量的时间...（8个小时），我试图花费大量的时间来查找相同代码的矢量化版本。 如果您对此有任何想法或知道任何内置功能/软件包可以帮助我，请帮助我。