Distanza euclidea di due vettori

Come trovo la distanza euclidea di due vettori:

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

Usa la funzione dist() , ma devi creare una matrice dai due input per il primo argomento a dist() :

 dist(rbind(x1, x2)) 

Come definito su Wikipedia , questo dovrebbe farlo.

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

C'è anche la funzione rdist nel pacchetto di fields che può essere utile. Vedi qui


MODIFICA: operatore ** modificato in ^ . Grazie, Gavin.

prova a usare questo:

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