##load the data
data(mesa.data)
##Lets look at the data
names(mesa.data)
##Study the structure of the location data
head(mesa.data$location)
##...the covariates
head(mesa.data$LUR)
##...the smooth temporal trends
head(mesa.data$trend)
##...observations
head(mesa.data$obs)
##...and Spatio-temporal covariate
head(mesa.data$SpatioTemp)
##Look at the number of observations/locations
printMesaDataNbrObs(mesa.data)
##Let's plot the space-time monitoring locations
plotMonitoringLoc(mesa.data)
##Let's plot the observations as a function of time
plotMonitoringLoc(mesa.data, obsplot=TRUE, legend.loc="bottomleft")
##plot observations and residuals from the temporal trends
par(mfcol=c(3,2),mar=c(2.5,2.5,2,.5))
plotMesaData(mesa.data,5,type="obs")
plotMesaData(mesa.data,5,type="res")
plotMesaData(mesa.data,5,type="acf")
plotMesaData(mesa.data,18,type="obs")
plotMesaData(mesa.data,18,type="res")
plotMesaData(mesa.data,18,type="acf")
Run the code above in your browser using DataLab