data=read.delim("exer10_12.dat",header=TRUE) attach(data) hist(WIDTHP,main="Width of Fish Caught",col="green")
qqnorm(WIDTHP,col="green") qqline(WIDTHP)