## Not run:
# ## Import a PDB file from the web
# protein <- makeExampleProtein()
# closed <- centroidClosure(protein$A)
#
# ##Plot the result
# plotKnot3D(closed, ends = c(), text = TRUE, showNC = TRUE,
# radius = 0.01, lwd = 5)
# ## End(Not run)
Run the code above in your browser using DataLab