## Not run:
# link <- makeExampleKnot(k = FALSE)
# link <- newKnot(link$points3D, link$ends)
#
# ##plot with rgl
# require(rgl)
# plot3D(link)
# plot3D(link, radius = 0.1)
# plot3D(link, radius = 0.1, lwd = 10)
# ## End(Not run)
Run the code above in your browser using DataLab