# NOT RUN {
set.seed(1)
X <- runif(25)
Y <- runif(25)
setGD()
AA.pl <- xyPlot(X, Y)
addCaption("Twenty five random points")
# See for examples of addCaption:
vignette(topic="GraphSetup", package="smwrGraphs")
demo(topic="AnnualFlowBarChart", package="smwrGraphs")
# }
Run the code above in your browser using DataCamp Workspace