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)
if (FALSE) {
dhs <- rings(fdhs, N = c(100, 300, 500))
str(dhs)
print(dhs)
}
Run the code above in your browser using DataLab