# Print the table of transitions and exposure times that is the basis for the occurrence-exposure rates.
data (GLHS)
z<- Parameters (GLHS)
occup <- Occup(GLHS)
ist <- statesequence.ind (GLHS)
trans <- Trans (GLHS,seq.ind=ist)
y <- RateTable(GLHS, occup, trans)
p.tableBiograph (table=y$Stable, filename="Stable.out",w=8,append=FALSE)
Run the code above in your browser using DataLab