################################################### ### chunk number 1: pg 477 ################################################### COUNT <- c(152,39,53,6) TYPE <-gl(4,1,4,c("YellowSmooth", "YellowWrinkled", "GreenSmooth", "GreenWrinkled")) seeds <- data.frame(TYPE,COUNT) ################################################### ### chunk number 2: pg 477 ################################################### seeds.xtab <- xtabs(COUNT~TYPE,seeds) ################################################### ### chunk number 3: pg 477 ################################################### chisq.test(seeds.xtab, p=c(9/16,3/16,3/16,1/16), correct=F)$exp ################################################### ### chunk number 4: pg 477 ################################################### chisq.test(seeds.xtab,p=c(9/16,3/16,3/16,1/16), correct=F)