Command for Fig 2.2

boxplot(wage,range=1,horizontal=TRUE)

Read in SIRDS
 bweights <- read.table("e:/Lecture_A5/SIRDS.txt",header=TRUE,fill=TRUE)
 boxplot(bweights,range=1,horizontal=TRUE)
 
Read in coins
coins <- read.table("e:/Lecture_A5/coins.txt",header=TRUE,fill=TRUE)
qqnorm(First, main = "Normal Q-Q Plot", xlab = "Theoretical Quantiles", ylab = "Sample Quantiles", plot.it = TRUE, datax = FALSE)
qqline(First, datax = FALSE)

> qqnorm(RCage[RCage<3000], main = "Normal Q-Q Plot",
+             xlab = "Theoretical Quantiles",
+             ylab = "Sample Quantiles", plot.it = TRUE, datax = FALSE,)
> qqline(RCage[RCage<3000], datax = FALSE)