data (GLHS)
z <- Parameters (GLHS)
agetrans <- AgeTrans (GLHS)
ist <- statesequence.ind (GLHS)
timeunit <- "month"
subjectsID <- c(1,6,7,19,136,208)
path1 <- getwd() # save output in current directory
samplepaths <- p.SamplePath (data=GLHS, timeunit=timeunit,subjectsID=subjectsID,
seq.ind=ist,ages=agetrans$ages,path=path1,file="biograph.out")
Run the code above in your browser using DataLab