# creates an episode-data structure relating
# to the transition childless-->first child
ep1<-epdata(start=demogr$dbirth,
event=demogr$dch1,
rcensor=demogr$dint,
birth=demogr$dbirth,
id=demogr$id,
addvar=subset(demogr,select=c(-id,-dbirth)))
# or, using 'with'
ep1<-with(demogr,epdata(start=dbirth, event=dch1,
rcensor=dint, birth=dbirth,id=id,
addvar=subset(demogr,select=c(-id,-dbirth))))
Run the code above in your browser using DataLab