if (FALSE) {
data(DemoData2)
data(DemoMap2)
library(survey)
des0 <- svydesign(ids = ~clustid+id, strata = ~strata,
weights = ~weights, data = DemoData2, nest = TRUE)
Xmat <- aggregate(age~region, data = DemoData2, FUN = mean)
cts.res <- smoothArea(tobacco.use ~ 1,
domain = ~region,
design = des0,
adj.mat = DemoMap2$Amat,
pc.u = 1,
pc.alpha = 0.01,
pc.u.phi = 0.5,
pc.alpha.phi = 2/3,
return.samples = TRUE)
compareEstimates(cts.res)
}
Run the code above in your browser using DataLab