# \donttest{
path1 <- system.file("extdata", "exampleInputData.rda", package = "GeoAdjust")
load(path1)
results <- estimateModel(data = exampleInputData,
options = list(random = 1, covariates = 1), priors = list(beta = c(0,1),
range = 114, USpatial = 1, alphaSpatial = 0.05, UNugget = 1, alphaNug = 0.05), n.sims = 1000)
print(results)
# }
Run the code above in your browser using DataLab