library(SSN)
data(modelFits)
compare.models <- InfoCritCompare(list(fitNS, fitRE, fitSp, fitSpRE1, fitSpRE2))
# Examine the model criteria
compare.models
# Compare the AIC values for all models with random effects
compare.models[c(2,4,5),c("Variance_Components","AIC")]
# Compare the RMSPE for the spatial models
compare.models[c(3,4,5),c("Variance_Components","RMSPE")]
# Compare the RMSPE between spatial and non-spatial models
compare.models[c(1,3),c("formula","Variance_Components", "RMSPE")]
Run the code above in your browser using DataLab