d=read.table("http://people.stat.sc.edu/hansont/stat205/205survey.txt",header=T)
attach(d)
levels(politics)
levels(politics)=c("conservative","liberal","moderate")
levels(happy)
levels(happy)=c("somewhat","very")
levels(pres)
levels(pres)=c("Clinton","other","Trump")
table(politics,happy)
levels(politics)
chisq.test(table(politics,happy),simulate.p.value=T)
table(politics,pres)
chisq.test(table(politics,pres),simulate.p.value=T)
table(happy,pres)
chisq.test(table(happy,pres),simulate.p.value=T)

surgery=matrix(c(41,8,15,11),nrow=2)
colnames(surgery)=c("Real","Sham")
rownames(surgery)=c("Success","No success")
surgery
chisq.test(surgery,simulate.p.value=T)

plover=matrix(c(21,17,5,19,38,6,26,12,9),nrow=3)
chisq.test(plover,simulate.p.value=T)