Le code suivant nécessite peu de mémoire et devrait fonctionner sur des jeux de données volumineux : dist1 <- function(z,df2) { d2 <- function(a,b) (a-b)^2 x2 <- sapply(df2[[1]],d2,z[1]) y2 <- sapply(df2[[2]],d2,z[2]) dist <- sqrt(x2+y2) c(min(dist),which.min(dist)) } min1 <- function(df1,df2) { m <...