phi1_use <- 4
phi2_use <- 4
phi3_use <- 1/6
mu1_use <- 15
mu2_use <- 15
mu3_use <- 7
b0_use <- 0.6882
b1_use <- -0.2995
tau0_use <- 0.07
tau1_use <- 0.05
simdat <- scdeco.sim.pg(N=1000, b0=b0_use, b1=b1_use,
phi1=phi1_use, phi2=phi2_use, phi3=phi3_use,
mu1=mu1_use, mu2=mu2_use, mu3=mu3_use,
tau0=tau0_use, tau1=tau1_use)
simdat[1:10,]
Run the code above in your browser using DataLab