##load data
data(mesa.data)
##check observations
stCheckObs( mesa.data$obs )
##some possible failures
mesa.data$obs <- rbind(mesa.data$obs, mesa.data$obs[1,])
try( stCheckObs( mesa.data$obs ) )
mesa.data$obs$obs[1] <- NaN
try( stCheckObs( mesa.data$obs ) )
mesa.data$obs$date <- as.character( mesa.data$obs$date )
try( stCheckObs( mesa.data$obs ) )
mesa.data$obs$date <- NULL
try( stCheckObs( mesa.data$obs ) )
Run the code above in your browser using DataLab