# NOT RUN {
library(SpNetPrep)
library(spatstat.core)
library(spatstat.geom)
library(spatstat.linnet)
library(sp)
library(raster)
library(maptools)
network <- chicago$domain
Angle <- 10
Length <- 20
simplified_network_1 <- SimplifyLinearNetwork(network,Angle=Angle,Length=Length)
# }
# NOT RUN {
M <- matrix(c(10,60,40,25),nrow=2)
simplified_network_2 <- SimplifyLinearNetwork(network,M=M)
# }
Run the code above in your browser using DataLab