test de Kruskal

Bonjour,
Ci-joint mon tableau de données.
Pièce jointe 585404

Je souhaite tester la colonne qui contient des valeurs numériques contre chacune des autres colonnes.
La commande ci-dessous fonctionne

Code:

---

1 2 3 4

> KW_OIV1<-list() > for(i in names(OBERLIN_SSR[,2:17])){ + KW_OIV1[[i]] <- kruskal.test(formula(paste(i, "~OIV_1"))) + }

---

mais je souhaiterais réaliser le test dans l'autre sens, c'est à dire OIV_1 contre i
J'ai donc essayé d'inverser la commande

Code:

---

1 2 3

> for(i in names(OBERLIN_SSR[,2:17])){ + KW_OIV1[[i]] <- kruskal.test(formula (paste("OIV_1", "~i"))) + }

---

Et dans ce cas là message d'erreur
Erreur dans model.frame.default(formula = formula(paste("OIV_1", "~i"))) :
les longueurs des variables diffèrent (trouvé pour 'i')

Quelqu'un pourrait m'aider ?
Merci d'avance
Marie

Bonjour.
Dans le second paste, i ne devrait pas être à l'intérieur des guillemets, je crois.

J'ai trouvé la solution

Code:

---

1 2 3

> for(i in names(OBERLIN_SSR[,2:17])){ + KW_OIV1[[i]] <- kruskal.test(formula (paste("OIV_1~",i))) + }

---