Discussion :

[orland]

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

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

[dev_ggy]

Il y a une petite erreur dans ta formule

Soit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[lilly74]

Bonjour,

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

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

Bonne journée

[orland]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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)
    }