if (FALSE) {
precision_builder(im.res = c(3, 3), tau = 1, alpha = 0.75,
neighborhood = "ar1")
## binary weights
precision_builder(im.res = c(3, 3), tau = 1, alpha = 0.75,
neighborhood = "round", r = 3)
## weights based on distance
precision_builder(im.res = c(3, 3), tau = 1, alpha = 0.75,
weight = "distance", phi = 1,
neighborhood = "round", r = 3)
precision_builder(im.res = c(3, 3), tau = 1, alpha = 0.75,
neighborhood = "rectangle", w = 2, h = 2)
}
Run the code above in your browser using DataLab