################################################### ### chunk number 1: ################################################### options("width"=70) ################################################### ### chunk number 2: ################################################### soil.char = c("Sand", "Sand", "Clay", "Sand", "Peat") soil.char soil.f = factor(soil.char) soil.f table(soil.f) as.numeric(soil.f) table(soil.f)/length(soil.f) ################################################### ### chunk number 3: ################################################### library(sp) data(meuse) par(mfrow=c(3,1)) par(mar=rep(2,4)) hist(meuse$zinc, main=NULL, 8, xlim = c(0, 2000)) hist(meuse$zinc, main=NULL, 30, xlim = c(0, 2000)) hist(meuse$zinc, main=NULL, 120, xlim = c(0, 2000)) #$ ################################################### ### chunk number 4: ################################################### load("students2010.rdata") attach(students) quantile(Length, c(.25, .75), na.rm = TRUE) mean(Length < 180, na.rm = TRUE) ################################################### ### chunk number 5: ################################################### quantile(Length, c(0, 1), na.rm = TRUE) quantile(Length, c(.25, .75), na.rm = TRUE) ################################################### ### chunk number 6: ################################################### var(Length, na.rm = TRUE) sqrt(var(Length, na.rm = TRUE))