# NOT RUN {
##General hypothesis : was that participants who had experienced more traumatic events
## during childhood would be more likely to drop out of treatment.
trau=matrix(c(25,13,9,10,6,31,21,6,2,3), byrow=TRUE, nrow=2)
colnames(trau)<-c("0","1","2","3","4+")
rownames(trau)<-c("dropout","remain")
ordinal.chisq(trau)
##Association between grade and local breast cancer relapse
grade <- matrix(c(16,42,71,4,27,49), ncol=3, byrow=TRUE)
colnames(grade)<-c("low", "intermediate","high")
rownames(grade)<-c("0", "1")
ordinal.chisq(grade)
# }
Run the code above in your browser using DataLab