##### Example 3.1 Randomized Clinical Trial of Chronic Pain #####
data(cpain)
out11 = sanon(outcome=cpain[,"response"], group=cpain[,"treat"],
strt=cpain[,c("center", "diagnosis")], ref="placebo")
out11
summary(out11)
# formula is also available
out12 = sanon(response ~ grp(treat, ref="placebo") + strt(center) + strt(diagnosis), data=cpain)
out12
summary(out12)
##### Example 3.2 Randomized Clinical Trial of Respiratory Disorder #####
data(resp)
out21 = sanon(outcome=resp[,c("baseline", "visit1", "visit2", "visit3", "visit4")],
group=resp[,"treatment"], strt=resp[,c("center", "sex")], covar = resp[,"age"], ref="P")
out21
summary(out21)
# formula is also available
out22 = sanon(cbind(baseline, visit1, visit2, visit3, visit4)
~ grp(treatment, ref="P") + strt(center) + strt(sex) + covar(age), data=resp)
out22
summary(out22)
# the matrix P can be specified
P = rbind(rep(0, 4), diag(4), rep(0, 4))
out23 = sanon(cbind(baseline, visit1, visit2, visit3, visit4)
~ grp(treatment, ref="P") + strt(center) + strt(sex) + covar(age), data=resp, P=P)
out22
summary(out23)
Run the code above in your browser using DataLab