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