# make some data
A <- psp(0.09, 0.55, 0.79, 0.80, window=owin())
B <- superimpose(A, as.psp(simplenet))
# convert to a linear network
D <- as.linnet(B)
# check validity
D
plot(D)
text(vertices(D), labels=vertexdegree(D))
Run the code above in your browser using DataLab