mySSTdata1 <- simssfixed(
pid = c("John.Smith","Jane.McDonald","Jane.McDonald"),
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))),
block=c(1,1,2))
mySSTdata1
Run the code above in your browser using DataLab