data=read.delim("exer10_12.dat",header=TRUE)

attach(data)

hist(WIDTHP,main="Width of Fish Caught",col="green")

plot of chunk unnamed-chunk-1

qqnorm(WIDTHP,col="green")

qqline(WIDTHP)

plot of chunk unnamed-chunk-1