##load data
data(mesa.data)
##names present in dta
names(mesa.data$covars)
##check for some names
stCheckFields(mesa.data$covars, c("ID","x","lat"))
##check for non-existant names
try( stCheckFields(mesa.data$covars, c("ID","x","test")) )
Run the code above in your browser using DataLab