data (GLHS)
z<- Parameters(GLHS)
occup <- Occup (GLHS)
ist <- statesequence.ind (GLHS)
trans <- Trans (GLHS,seq.ind=ist)
ratetable <- RateTable (survey=GLHS, occup=occup,trans=trans)
path1 <- getwd() # save output in current directory
trans.p <- p.Trans (trans=trans,ratetable=ratetable,path=path1, filnam.trans="trans1.out",filnam.Stable="Stable.out")
Run the code above in your browser using DataLab