mySSTdata1 <- simsstrack(
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.data.frame(rbind(c(400,60,30),c(440,90,90),c(440,90,90))),
dist.stop=c("ExG","ExG","ExG"),
theta.stop=as.matrix.data.frame(rbind(c(100,70,60),c(120,80,70),c(120,80,70))))
mySSTdata1
Run the code above in your browser using DataLab