data(geom000)
Cindex(geom000)
data(pert000)
Cindex(pert000)
# Two separate areas with highly structured shapes, but far away from each other.
data(pert006)
data(ICPg240Locs)
hold <- make.SpatialVx(pert000, pert006, loc=ICPg240Locs,
projection=TRUE, map=TRUE,
field.type="Precipitation", units="mm/h",
data.name=c("ICP Perturbed Cases", "pert000", "pert006"))
plot(hold, set.pw=TRUE)
Cindex(hold)
Run the code above in your browser using DataLab