################################################### ### chunk number 1: ################################################### options("width"=70) set.seed(13131) # load("students.RData") # attach(students) #library(rgdal) #nrw = readOGR("katha", "NRW", verbose=FALSE) # students$I.am.2 = as.character(students$I.am.) # students$I.am.2 = factor(students$I.am.2, levels = c("small", "intermediate", "tall")) ################################################### ### chunk number 2: ################################################### load("students.RData") attach(students) t.test(Length, mu = 175) ################################################### ### chunk number 3: ################################################### t.test(Length, mu = 175, alternative = "less") t.test(Length, mu = 175, alternative = "greater") ################################################### ### chunk number 4: ################################################### prop.test(1,5) prop.test(100,500)