Discussion :

[marou1991]

Bonjour,

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

Code :

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

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

[mgdondon]

Bonjour,

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

Cordialement,

[marou1991]

Bonjour,

Quand je lance sans boucle.

j'ai un problème de dimension.

Code :

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

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.
boucle.xlsx

le code utilisé.

Code :

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

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.

[mgdondon]

Bonjour,

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

Code :

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

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,

[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.

[mgdondon]

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 :

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

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,

[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.