I have follwoing dataset
group<-c(rep("X1",5),rep("X3",5)) set.seed(1) value<-c(rep(rnorm(1,.6,.2),5),rep(rnorm(1,.5,.2),5)) time<-c(