data(residualspaper)
X <- residualspaper$Fig4a
summary(X)
plot(X)
# reproduce all Figures
residualspaper$plotfig()
# reproduce Figures 1 to 10
residualspaper$plotfig(1:10)
# reproduce Figure 7 (a)
residualspaper$plotfig("7a")
Run the code above in your browser using DataLab