##
msdata_4state <- simdata(seed=123,n=1000,dist="weibull",cdist="exponential",
cparams=list(rate = 0.1),lambdas=c(0.1, 0.2, 0.3, 0.4),
gammas=c(1.5, 2, 2.5, 2.6),beta_list=list(c(-0.05, 0.01, 0.5, 0.6),
c(-0.03, 0.02, 0.07, 0.08),c(-0.04, 0.03, 0.04, -0.03),
c(-0.05, 0.05, 0.6, 0.8)),cov_means=c(0, 10, 2, 3),cov_sds=c(1,20,5,1.05),
trans_list=list(c(2, 3, 4, 5),c(3, 4, 5),c(4, 5), c(5), c()),
state_names=c("Tx", "Rec", "Death", "Reldeath", "srv"))
##
Run the code above in your browser using DataLab