y <- rt(200, df = 5)
qqnorm(y)
qqline(y, col = 2)
qqplot(y, rt(200, df = 5))
data(precip)
qqnorm(precip, ylab = "Precipitation [in/yr] for 70 US cities")