Utilisation de la fonction rbind

[Bonjour]

J'ai une base de données où j'aimerais faire un rbind (ajouter des absences dans mon cas quand la personne n'est pas présente)

La base de données se présente comme suit :

Code:

---

l'identifiant_du_jour numero_quart_d'heure présence_et_eventuellement_absence pièce_de_présence_ou_d'absence Date

---

L'algorithme auquel j'ai pensé est le suivant, mais ça ne marche pas, il me renvoie continuellement la même base sans les absences que je voulais ajouter :

Code:

---

1 2 3 4 5 6 7 8 9

for(i in 1: rownums) { if( i!= rownums && test_user1$num_qu[i]==test_user1$num_qu[i+1] ) { heure_debut<-substr(test_user1$id_date[i],1,40) ligne<-c(test_user1$id_j[i],test_user1$num_qu[i],test_user1$id_cli[i],0,substr(test_user1$pi[i],1,10),heure_debut) resultat<-rbind(test_user1,ligne) } }

---

[Merci d'avance pour votre aide.]

Bonjour,

Au lieu d'utiliser la fonction c() as-tu essayé d'utiliser data.frame() ? Cela marche peut-être mieux pour le rbind() derrière, mais je n'en suis pas sure.

Bon courage !

Bonjour,

Sans voir directement les données ni la sortie, pas facile de deviner mais je pense qu'avec les modifications suivantes ça devrait fonctionner (ou du moins se rapprocher de la solution) :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

resultat<-test_user1 for(i in 1: rownums) { if( i!= rownums && test_user1$num_qu[i]==test_user1$num_qu[i+1] ) { heure_debut<-substr(test_user1$id_date[i],1,40) ligne<-c(test_user1$id_j[i],test_user1$num_qu[i],test_user1$id_cli[i],0,substr(test_user1$pi[i],1,10),heure_debut) resultat<-rbind(resultat,ligne) } }

---

HTH ! :)


Cordialement,


A.D.