# NOT RUN {
if (require("spatstat", quietly = TRUE)) {
roxel_sfn = as_sfnetwork(roxel) %>%
sf::st_transform(3035)
roxel_linnet = as.linnet(roxel_sfn, sparse = TRUE)
roxel_linnet
par(mar = c(1,1,1,1))
plot(roxel_linnet)
}
# }
Run the code above in your browser using DataLab