x <- rnorm(100)
cdf.plot(x)
x <- runif(100)
cdf.plot(x)
xn <- rnorm(20)
cdf.plot.gof(xn,dist="normal")
mtext(side=3,line=2,"Sample Normal, Hyp Normal",cex=0.7)
xu <- runif(20,0,1)
cdf.plot.gof(xu,dist="unif")
mtext(side=3,line=2,"Sample Unif, Hyp Unif",cex=0.7)
z <- rnorm(100)
chisq.gof.norm(z,4,0)
Run the code above in your browser using DataLab