library(DRHotNet)
library(spatstat.geom)
library(spatstat.linnet)
library(spdep)
library(raster)
rel_assault <- relpnet(X = chicago,
lixel_length = 50, h = 50, mark = "marks", category_mark = "assault")
sensitivity_analysis <- drsens(X = chicago, rel_probs = rel_assault,
ks = c(1,2), ns = c(30,40))
Run the code above in your browser using DataLab