data(Pain)
x <- pain[,c(2,3:9,11:17)]
grp <- rep("treat",nrow(x))
grp[x[,1]==0] <- "control"
x[,1] <- grp
#bootPRO(x,type='mean')
#bootPRO(x,type='mean',MCID=1)
#bootPRO(x,type='mean',MCID=1.5)
#bootPRO(x,type='mean',MCID=2)
#bootPRO(x,type='rel')
#bootPRO(x,type='relative',MCID=.2)
#bootPRO(x,type='relative',MCID=.3)
##bootPRO(x,type='relative',MCID=.5)
Run the code above in your browser using DataLab