# Box-Whisker-Plots fuer Beispiel 2.2:

dd <- read.table("Baseball.txt",header=T)

dd$exp <- pmin(dd$yrs,15)
names <- c(seq(1,14),"> 14")

par(mai=c(0.5,0.5,0.1,0.05))
boxplot(dd$salary ~ dd$exp, names=names)
boxplot(log10(dd$salary) ~ dd$exp, names=names)