Discussion :

[CupOfAppleTea]

Bonjour,

Je dispose d'un jeu de données avec 140 colonnes de taille identique. Je souhaiterais calculer la différence entre chaque paire de colonnes possible.

Par exemple soit mon fichier :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
a=read.table("donnees.txt")
a[,1] - a[,2]
puis a[,1] - a[,3]
.
.
.
enfin a[,1] - a[,140]
 
Puis a[,2] - a[,3]
a[,2] - a[,4]
.
.
.
a[,2] - a[,140]
 
Jusqu'à arriver à
a[,139] - a[,140]

Toutes les combinaisons doivent être considérées.

Je n'ai pas envie de me lancer dans une boucle qui va demander d'avantage d'effort à mon PC et je voudrais écrire ça sous forme de fonction. J'imagine que la fonction "sapply" doit convenir dans ce cas mais je ne sais pas bien par où commencer!

Je voudrais faire quelque chose de ce genre là:

Code :

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

sapply(a[,1:140],function(x) a[,i]-a[,i+1])

Mais "a[,i]-a[,i+1]" pose problème... je vois bien que ce n'est pas ce qu'il faut renseigner.

Merci d'avance pour votre aide!

[mamounMob]

Je n'ai pas envie de me lancer dans une boucle qui va demander d'avantage d'effort à mon PC

FAUX ! Si le code exécuté dans la boucle for est court il n'y a pas (voir peu) d'intérêt à utiliser le 'sapply'.

Sinon tu peux dupliquer ta matrice et faire :

Code :

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

a[, i]- a[, (i+1):nbCol_a]

pour i = 1:139
ça marche aussi mieux

[CupOfAppleTea]

Utiliser des fonctions plutôt que des boucles reste tout de même plus élégant. Mais ce n'est que mon avis

Ca fonctionne très bien avec la fonction "combn":

Code :

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

1
2
liste_combinaison<-combn(1:140,2)
resu <- a[, liste_combinaison[1,]] -  a[, liste_combinaison[2,]]

Problème résolu!
Merci