# creates an episode-data structure relating to the transition
# childless-->first child
ep1<-with(demogr,epdata(start=dbirth, event=dch1, rcensor=dint,
birth=dbirth,id=id,
addvar=subset(demogr,select=c(-id,-dbirth))))
# creates a new episode-data structure with a time-varying factor
# variable relating to the status "never married" (not_marr) or
# "ever married"(marr)
ep2<-splitter(ep1,split=ep1$d1marr,tvar.lev=c("not_marr","marr"),
tvar.name="mar")
# Estimates age profiles for the transition to the first birth
# according to the following factors:
# sex (respondent'sex w/2 levels: 'Male', 'Female');
# edu ('Level of education w/3 levels: 'low_sec','upp_sec', 'tert');
# mar (ever married w/2 levels: 'not_marr', 'marr')
ch1.ap<-ageprofile(formula=~sex+edu+mar, epdata=ep2,
tr.name="First child", agelimits=c(15,50))
# The estimates are obtained under the hypothesis of independence among
# factors. We can relax this hp by considering the interaction between
# factors. The following commands add the interaction between sex and edu.
ep2$inter<-ep2$sex:ep2$edu
ch1.ap<-ageprofile(formula=~sex+edu+mar+inter, epdata=ep2,
tr.name="First child", agelimits=c(15,50))
Run the code above in your browser using DataLab