[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 : Sélectionner tout - Visualiser dans une fenêtre à part
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 : Sélectionner tout - Visualiser dans une fenêtre à part
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.]