mySSTdata1 <- simssgen(
pid = c("John.Smith","Jane.McDonald","Jane.McDonald"),
block = c(1,1,2),
n = c(50,100,150),
m = c(10,20,30),
SSD.b = c(200,220,240),
dist.go = c("ExG","ExG","ExG"),
theta.go = as.matrix(rbind(c(400,60,30),c(440,90,90),c(440,90,90))),
dist.stop = c("ExG","ExG","ExG"),
theta.stop = as.matrix(rbind(c(100,70,60),c(120,80,70),c(120,80,70))),
rho = c(0.35,0.45,0.45),
d = c(50,65,75))
mySSTdata1
Run the code above in your browser using DataLab