##load data
data(mesa.data)
##plot the first site,
par(mfrow=c(4,1),mar=c(2.5,2.5,3,1))
plotMesaData(mesa.data, ID=1, type="obs")
##residuals from the temporal trends,
plotMesaData(mesa.data, ID=1, type="res")
##afc
plotMesaData(mesa.data, ID=1, type="acf")
##... and pafc for the residuals
plotMesaData(mesa.data, ID=1, type="pacf")
##Same as above but calling the 2nd site by name
par(mfrow=c(4,1),mar=c(2.5,2.5,3,1))
plotMesaData(mesa.data, ID="60370016", type="obs")
plotMesaData(mesa.data, ID="60370016", type="res")
plotMesaData(mesa.data, ID="60370016", type="acf")
plotMesaData(mesa.data, ID="60370016", type="pacf")
Run the code above in your browser using DataLab