# NOT RUN {
# the data is first changed to a timeseries object and then plotted
data(perth)
wts <- ts(perth$water,start=1911)
plot(wts,ylab="GL", main="Perth dams water inflow", xlab="year", frame=FALSE, xaxp=c(1910,2020,10))
# }
Run the code above in your browser using DataLab