Discussion :

[mido_dodo]

Bonjour à tous,

En fait j'ai une base de donnée "etude" avec 173 observations et 3 variable SubId, SERId et date.
Je souhaiterai créer une nouvelle variable diff_date de cette manière:




En fait l'objectif au final c'est pour chaque groupe par exemple le premier groupe (1, 1, 1, 1) c'est de garder la ligne correspond à SERId =1 avec la ligne qui a une date compris entre 3 mois plus ou moins 15 jours.
Je me débrouille avec boucle for mais j'arrive pas et je pense qu'on a besoin de "while" mais j'ai un prob d’arrêter la boucle et de passer d'un groupe à l'autre car les numéros des groupes ne sont pas consécutifs (1,1,1,1,2,2,2,3,3,3,5,5,5,9,9,9).
Merci de m'aider si vous avez des idées afin de résoudre mon problème.
Merci d'avance

[Sengar]

Bonjour,

Un tapply() avec la bonne fonction devrait faire l'affaire:

Code :

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

1
2
3
4
5
6
7
diff.func<-function(x){return(x-x[1])}
 
 
diff_date<-unlist(tapply(etude$date,etude$SubId,diff.func))
 
 
etude$diff_date=diff_date

[mido_dodo]

Salut,

Un GRAND merci Sengar, le code marchait super bien