# NOT RUN {
showClass("prevR")
col <- c(id = "cluster",
x = "x",
y="y",
n="n",
pos = "pos",
c.type = "residence",
wn="weighted.n",
wpos="weighted.pos"
)
dhs <- as.prevR(fdhs.clusters,col, fdhs.boundary)
str(dhs)
print(dhs)
# }
# NOT RUN {
dhs <- rings(fdhs,N=c(100,300,500))
str(dhs)
print(dhs)
# }
Run the code above in your browser using DataLab