distance entre 2 points

Bonsoir,
Comment je peux calculer la distance (dist euclidienne) entre 2 points dans l'espace de 2 dimensions ?

Code:

---

dist <- sqrt((y2 - y1)^2 + (x2 - x1)^2)

---

avez-vous des idées sur le code à utiliser pour ramener ceci dans une fonction :koi:
Merci d'avance :)

Il y a une petite erreur dans ta formule

Soit

Code:

---

1 2 3 4 5 6 7 8

X = cbind(x1,x2) Y = cbind(y1,y2) distance_euclidienne<-function(X,Y){ dist <- sqrt((X[,2]- Y[,2])^2 + (X[,1] - Y[,1])^2) return(dist) } distance_euclidienne(X,Y)

---

Cordialement.

Bonjour,

il y a aussi la possibilité d'utiliser la fonction dist:

Code:

---

1 2 3

x <- c(3,5) y <- c(1,2) dist(rbind(x,y))

---

Bonne journée :)

Merci :)
mais c'était juste le début pour chercher un vecteur des n distances (vecteur contient les distances entre un points et les (n-1) autres points).
j'ai tapé ce code qui fonctionne bien :)

Code:

---

1 2 3 4 5 6 7 8 9

distcomb <- function(x, data) { data <- t(data) temp <- apply(x, 1, function(x) { sqrt(colSums((data - x)^2)) }) if (is.null(dim(temp))) matrix(temp, nrow(x), ncol(data)) else t(temp) }

---