Displaying 1 result from an estimated 1 matches for "gluv".
Did you mean:
glue
2002 May 27
1
nlme cross-over and fixed nested
...cebo Phase
# Seq: 1 for "Placebo first phase", 2 for "Verum first phase"
glup<-data.frame(Patient=as.factor(1:NSubj),
Seq=as.factor(rep(c(1,2),NSubj/2)),
Treat=rep("Pla",NSubj),
Glu=rnorm(NSubj,30,4)
)
# Verum Phase
gluv<-data.frame(Patient=as.factor(1:NSubj),
Seq=as.factor(rep(c(1,2),NSubj/2)),
Treat=rep("Ver",NSubj),
Glu=glup$Glu-rnorm(NSubj,6,2)
)
# Simulate imperfect washout when verum was in first phase
# == Interaction of Seq and Treat
glu<-r...