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