text.Verzani.freq = c(123, 83, 86, 69, 100)/1210
probs = c(29, 21, 17, 17, 16)/100
chisq.test(text.Verzani.freq, p = probs)


menu = c(200, 150, 50)
women = c(250, 300, 50)
chisq.test(data.frame(menu, women))


#---1
block=c(10,5,7,18,10)
nonblock=c(18,15,5,8,4)
all = rbind(block,nonblock)
chisq.test(all)

#---2
none=c(67,42,75,56,57)
minor=c(10,6,8,4,15)
major=c(5,5,4,6,1)
all=cbind(none,minor,major)
chisq.test(all)

#---3
data=c(5,3,4)/12
now=c(54,22,49)/125
chisq.test(now, p = data)

#---4
data(UCBAdmissions)
install.packages("UsingR")
x=ftable(USBAdmissions)
data(UCBAdmissions)
x = ftable(UCBAdmissions)
x
chisq.test(x[1:4,])