##load data
data(mesa.data)
##check covariates
tmp <- stCheckSTcovars( mesa.data$SpatioTemporal, mesa.data$covars$ID )
str(tmp)
##require non-existant site
try( stCheckSTcovars( mesa.data$SpatioTemporal, "Bad.Site" ) )
##require non-existant site
try( stCheckSTcovars( mesa.data$SpatioTemporal, date.unique=1 ) )
Run the code above in your browser using DataLab