Discussion :

[orland]

Bonjour,
J'ai un jeu de données contenant 1000 objets. Voici une partie :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
            V1        V2 V3
990  2.039956 -2.413539  5
991  2.002434 -1.724621  5
992  1.857212 -1.637245  5
993  1.626244 -2.395526  5
994  2.385706 -1.823820  5
995  2.064320 -1.105388  5
996  2.082836 -2.591634  5
997  2.168515 -2.212182  5
998  2.162328 -2.520442  5
999  2.480002 -2.619354  5
1000 2.290755 -2.351017  5

Je veux obtenir chaque objet à part ( je veux calculer la distance de chaque objet par rapport aux (n-1) autres objets restants )
j'ai essayé avec ce code pour obtenir chaque objet à part

Code :

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

1
2
 > for (i in 1:nrow(t1))
+ {seldatai=t[i,]}

Mais ça ne marche pas, il m'affiche juste les 2 premiers objets ( sachant que t1 est la distribution des objets )

Merci de m'aider

[ced]

Bonjour,

Si j'ai bien compris ce que vous souhaitez, c'est calculer la distance de chaque point contenu dans l'objet avec les autres points du même objet, les colonnes V1 et V2 étant leurs coordonnées respectives.
Dans ce cas, la fonction spDists() du package sp est faite pour vous.
Repartons de l'exemple que vous donnez. Il suffit de créer une matrice à partir des coordonnées des différents points.
Par exemple :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
vec <- c(2.039956, -2.413539,
2.002434, -1.724621,
1.857212, -1.637245,
1.626244, -2.395526,
2.385706, -1.823820,
2.064320, -1.105388,
2.082836, -2.591634,
2.168515, -2.212182,
2.162328, -2.520442,
2.480002, -2.619354,
2.290755, -2.351017)
matr <- matrix(vec, 11, 2, byrow = T)

Ensuite, pour obtenir la distance des points entre eux, il faut faire :

Code :

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

dists <- spDist(matr, matr)

Avec 11 points dans l'exemple, on obtient une matrice 11 X 11 qui donne la distance de chaque point (en ligne) avec les autres points (en colonne). Il n'y a plus qu'à récupérer la ou les distances qui vous intéressent, sans isoler les points ni faire la moindre boucle.

En espérant que ça vous aidera...

ced

[orland]

Merci de m'avoir répondu.
En fait concernant le calcul des distances entre un objet et le reste des objets (n-1), je possède ce code qui marche 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)
    }

Mais mon problème est comment je peux obtenir chaque objet du jeu du données à part ; j'explique pour un objet num 1 je fais : obj1=t1[1,], je l'aurais
Mais moi je cherche comment obtenir tous les objets à part , c'est n'est qu'une simple boucle

Code :

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

1
2
for(i in 1:length(t1))
{obji=t[i,]}

mais cela ne marche pas
Autre chose, mon jeu de données possède 1000 objets mais quand je fais length(t1), j'aurais 3 au lieu de 1000 c'est pour cela j'ai pensé à nrow(t1).

Veuillez me posez des questions si c'est pas clair

[A. D.]

Voir les deux réponses ici : http://www.developpez.net/forums/d12...s/#post6925136 et http://www.developpez.net/forums/d12...ice-distances/