> x <- scan()
1: 152.7 172.0 172.5 173.3 193.0 204.7 216.5 234.9 262.6 244.6
11:
Read 10 items
>
> qqnorm(x, main="Problem80"); qqline(x)
Normal QQ Plot of the Data from Problem 4.6[80], Devore 5th ed.
> rz <- rnorm(100); qqnorm(rz, main="rnorm(100)"); abline(0, 1, col=2)
> stripchart(rz, pch=20)
Normal QQ Plot of 100 Random N(0,1).
> ru <- runif(100); qqnorm(ru, main="rUnif(100)"); qqline(ru, col=4)
Normal QQ Plot of 100 Random Unif(0,1).
> r <- rt(100,3); qqnorm(r, main="rT(100,3)"); qqline(r, col=3)
Normal QQ Plot of 100 Random T points with df=3
> r <- rgamma(100,2); qqnorm(r, main="rGamma(100,2)"); qqline(r, col=3)
> curve(dgamma(x,2),0,5);abline(h=0);abline(v=0)
Normal QQ Plot of 100 Gamma points with a=2
Plot pdf of Gamma with a=2, b=1.