ANZ0001.ocm <- ANZ0001[ANZ0001$cycleno==0 | ANZ0001$cycleno==5,]
ANZ0001.ocm$cycleno[ANZ0001.ocm$cycleno==5] <- 1
fit.overall <- ocm(overall ~ cycleno + age + bsa + treatment, data=ANZ0001.ocm)
fit.phys <- ocm(phys ~ cycleno + age + bsa + treatment, data=ANZ0001.ocm)
fit.pain <- ocm(pain ~ cycleno + age + bsa + treatment, data=ANZ0001.ocm)
fit.mood <- ocm(mood ~ cycleno + age + bsa + treatment, data=ANZ0001.ocm)
fit.nausvom <- ocm(nausvom ~ cycleno + age + bsa + treatment, data=ANZ0001.ocm)
fit.appetite <- ocm(appetite ~ cycleno + age + bsa + treatment, data=ANZ0001.ocm)
summary(fit.overall)
summary(fit.phys)
summary(fit.pain)
summary(fit.mood)
summary(fit.nausvom)
summary(fit.appetite)
par(mfrow=c(2,3))
plot(fit.overall, CIs='vcov', R=100)
plot(fit.phys, CIs='vcov', R=100)
plot(fit.pain, CIs='vcov', R=100)
plot(fit.mood, CIs='vcov', R=100)
plot(fit.nausvom, CIs='vcov', R=100)
plot(fit.appetite, CIs='vcov', R=100)
par(mfrow=c(1,1))
Run the code above in your browser using DataLab