inst/snippets/Figure8.9.R

In rpruim/ISIwithR: Data sets for "Introduction to Statistical Investigations"

plotDist("chisq", params=list(df=1), col = "yellow", ylim = c(0, 0.5), xlim = c(0, 8))
plotDist("chisq", params=list(df=2), col = "green", add = TRUE)
plotDist("chisq", params=list(df=3), col = "lightblue", add = TRUE)
plotDist("chisq", params=list(df=4), col = "blue", add = TRUE)
plotDist("chisq", params=list(df=6), col = "purple", add = TRUE)
plotDist("chisq", params=list(df=9), col = "pink", add = TRUE)