Obtenir chaque objet à part

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

Code:

---

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:

---

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

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:

---

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:

---

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

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:

---

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:

---

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

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