Optimisation boucle for r

Version imprimable

22/07/2019, 15h35
marou1991

Optimisation boucle for r
Bonjour,

j'aimerai optimiser cette boucle s'il vous plait. par un remplacement par la fonction apply ou autre.
Code:

1 2 3 4 5 6 for( i in 1:nrow(donnee_finale)) { donnee_finale[i,22] <- sum(donnee_finale[i, c(6,8,10,12,14)] < donnee_finale[i, 16] ,na.rm = T) }
22/07/2019, 16h08
mgdondon

Pas de boucle

Bonjour,

Vous n'avez pas besoin de boucle. Les opérations se font en parallèle sur les observations.

Cordialement,

1 pièce(s) jointe(s)

Bonjour,

Quand je lance sans boucle.

j'ai un problème de dimension.

Code:

1
2
3
4
5
6
 
Error: (list) object cannot be coerced to type 'double'
In addition: Warning messages:
1: Incompatible methods ("Ops.data.frame", "Ops.Date") for "<" 
2: In donnee_finale[, c(6, 8, 10, 12, 14)] < donnee_finale[, 16] :
  longer object length is not a multiple of shorter object length

voilà un extrait des données.
Pièce jointe 492794

le code utilisé.

Code:

1
2
3
4
5
6
 
 
for( i in 1:nrow(donnee_finale))
{
  donnee_finale[i,22] <- sum(donnee_finale[i, c(6,8,10,12,14)] < donnee_finale[i, 16]  ,na.rm = T)
}

Merci.

Pas de boucle

Bonjour,

Vous avez le même problème avec la boucle mais il est caché dans les warnings :

Code:

1
2
3
4
5
6
7
8
9
10
> donnee_finale <- read.xlsx(file="d:/temp/boucle.xlsx", sheetIndex="boucle", header=TRUE, colClasses=NA)
> for( i in 1:nrow(donnee_finale))
+ {
+   donnee_finale[i,22] <- sum(donnee_finale[i, c(6,8,10,12,14)] < donnee_finale[i, 16]  ,na.rm = T)
+ }
There were 50 or more warnings (use warnings() to see the first 50)
> warnings()
Messages d'avis :
1: In donnee_finale[i, c(6, 8, 10, 12, 14)] < donnee_finale[i,  ... :
  Méthodes incompatibles ("Ops.data.frame", "Ops.Date") pour "<"

Cordialement,

22/07/2019, 18h11
marou1991

Bonjour,

Avec la boucle il mets des warnings mais calcul quand même. Sans boucle il mets une erreur mais lance pas le calcul.

Vérifiez votre programme pas à pas

Bonjour,

• Avez-vous vérifié l'import de vos données avec la fonction str() ?

• Ce n'est pas parce que le programme tourne qu'il produit le résultat attendu :
Code:

1 2 3 4 5 6 7 8 9 > donnee_finale[1, c(6,8,10,12,14)] Date_sus.1 Date_sus.2 Date_sus.3 Date_sus.4 Date_sus.5 1 NA NA NA NA NA > donnee_finale[1, 16] [1] "2019-01-01" > sum(donnee_finale[1, c(6,8,10,12,14)] < donnee_finale[1, 16], na.rm=T) [1] 5 Warning message: Méthodes incompatibles ("Ops.data.frame", "Ops.Date") pour "<"
Cordialement,

23/07/2019, 10h00
marou1991

Bonjour,

Oui j'ai vérifié l'importation des variables.

J'ai trouvé une solution alternative. c'est de diviser le calcul en deux étapes. faire les tests 1 par 1 ensuite faire la sum.

Merci pour votre aide.