# NOT RUN {
X <- divide.linnet(runiflpp(4, simplenet))
Y <- divide.linnet(runiflpp(3, simplenet))
opa <- par(mfrow=c(1,3))
plot(X)
plot(Y)
plot(intersect.lintess(X,Y))
par(opa)
# }
Run the code above in your browser using DataCamp Workspace