data(GLHS)
ex_survey <- Parameters (GLHS)
occup <- Occup (GLHS)
ist <- statesequence.ind (GLHS)
trans <- Trans (GLHS,seq.ind=ist)
ratetable <- RateTable (GLHS,occup,trans)
rates <- Rates (pc_ac=2,Stable=ratetable$Stable)
path1 <- getwd() # save output file in current directory
p.rates (pc_ac=2,rates=rates$M,path=path1,filename="rates.out")
Run the code above in your browser using DataLab