##load data
data(mesa.data)
##check covariates
tmp <- stCheckCovars( mesa.data$covars, mesa.data$covars$ID )
str(tmp)
##require non-existant site
try( stCheckCovars( mesa.data$covars, "Bad.Site" ) )
##drop the ID
mesa.data$covars$ID <- NULL
tmp <- stCheckCovars( mesa.data$covars )
##ID:s infered from rownames (1-25)
str(tmp)
Run the code above in your browser using DataLab