Discussion :

[iGaia]

Bonjour,

J'écris en ce moment des lignes de code et je me dois, assez souvent, de le relancer. Et l'une des parties de celui - ci prend un certain temps à s'exécuter. Y aurait - il moyen de le simplifier de façon à ce qu'il ne prenne pas autant de temps (25 - 30 minutes) ?

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
for (i in 1:nrow(data)) 
{
data[i,"x1"] = sum(data[i,c("a1", "a2", ... "a12")])
data[i,"x2"] = sum(data[i,c("b1", "b2", ... "b9")])
data[i,"x3"] = sum(data[i,c("c1", "c2", ... "c7")])
data[i,"x4"] = sum(data[i,c("d1", "d2", ... "d15")])
data[i,"x5"] = sum(data[i,c("e1", "e2", ... "e8")])
data[i,"x6"] = sum(data[i,c("f1", "f2", ... "f11")])
data[i,"x7"] = sum(data[i,c("g1", "g2", ... "g10")])
data[i,"x8"] = sum(data[i,c("h1", "h2", ... "h10")])
data[i,"x9"] = sum(data[i,c("i1", "i2", ... "i13")])
}

iGaia.

[Sengar]

Salut,

R étant un langage vectoriel, il faut éviter autant que possible de faire des boucles surtout quand il s'agit de faire des assignations comme ici.


Ceci devrait beaucoup booster la vitesse du script:

Code :

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

1
2
3
4
 
data[,"x1"]<-apply(1,data[,c("a1", "a2", ... "a12")],sum)
data[,"x2"]<-apply(1,data[,c("b1", "b2", ... "b9")],sum)
#etc..

[iGaia]

Bonjour,

Merci pour cette information. J'y penserais et essayerais à l'avenir de penser à cette fonction apply assez utile en soi.
Juste un souci lors de l'exécution de mon code, j'obtiens ce message d'erreur.

Code :

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

1
2
Error in apply(1, data[, c("a1", "a2", "a3",  : 
  dim(X) must have a positive length

Par curiosité, j'ai essayé de modifier le 1 par ma table mais un message d'erreur est toujours présent.

Code :

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

Error in ds[-MARGIN] : invalid subscript type 'list'

[iGaia]

Petite erreur dans ton code.

Les données et le nombre d'attribution aux lignes ou colonnes sont juste inversés.
Ce qui donne simplement :

Code :

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

1
2
3
data[,"x1"]<-apply(data[, ..], 1, sum)
data[,"x2"]<-apply(data[, ..], 1, sum)
#etc..