## Not run:
# 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")
# ## End(Not run)
Run the code above in your browser using DataLab