## Not run:
# protein <- loadProtein('3MDZ')
# par(mfrow = c(1,2))
# plotDiagram(protein$A, ends = c(), lwd = 2.5, main = 'Original')
#
# protein.rot <- PCAProjection(protein$A)
# plotDiagram(protein.rot, ends = c(), lwd = 2.5, main = 'Reduced')
# ## End(Not run)
Run the code above in your browser using DataLab