library(DRHotNet)
library(spatstat.geom)
library(spatstat.linnet)
library(spdep)
rel_assault <- relpnet(X = chicago,
lixel_length = 50, h = 50, mark = "marks", category_mark = "assault")
plotrelp(X = chicago, rel_probs = rel_assault)
Run the code above in your browser using DataLab