Distance euclidienne de deux vecteurs

Comment trouver la distance euclidienne de deux vecteurs:

x1 <- rnorm(30) x2 <- rnorm(30) 

Utilisez la fonction dist() , mais vous devez former une masortingce à partir des deux entrées du premier argument de dist() :

 dist(rbind(x1, x2)) 

Comme défini sur Wikipedia , cela devrait le faire.

 euc.dist <- function(x1, x2) sqrt(sum((x1 - x2) ^ 2)) 

Il y a aussi la fonction rdist dans le package de fields qui peut être utile. Voir ici


EDIT: Changé ** opérateur à ^ . Merci Gavin.

essayez d’utiliser ceci:

 sqrt(sum((x1-x2)^2))