powered by
crossing.linnet(X, Y)
"linnet"
"psp"
"infline"
"lpp"
X
Y
crossing.psp
plot(simplenet, main="") L <- infline(p=runif(3), theta=runif(3, max=pi/2)) plot(L, col="red") Y <- crossing.linnet(simplenet, L) plot(Y, add=TRUE, cols="blue")
Run the code above in your browser using DataLab