knot <- makeExampleKnot(k = TRUE)
knot <- newKnot(knot)
link <- makeExampleKnot(k = FALSE)
link <- newKnot(link$points3D, link$ends)
plot(knot)
plot(knot, lwd = 2.5) #to emphasize the overcrossings
plot(link)
plot(link, lwd = 2.5) #to emphasize the overcrossings
Run the code above in your browser using DataLab