## 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)
Run the code above in your browser using DataLab