Skip to content

Instantly share code, notes, and snippets.

@JonasR

JonasR/plotRMS.R

Created July 30, 2012 20:46
Show Gist options
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
  • Save JonasR/3210033 to your computer and use it in GitHub Desktop.
Save JonasR/3210033 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
plotRMS.R
d <- read.table("1207270221251193.7.rmsmod_onlyca")
x1 <- seq(from=1,to=131)
x2 <- seq(from=132, to=492)
y1 <- d$V1[1:131]
y2 <- d$V1[132:492]
col1 <- rep("red", 131)
col2 <- rep("blue",361)
postscript("plot.eps")
plot(x1, y1, col=col1, type="l", xlim=c(1,492),ylim=c(0,max(max(y1),max(y2))), xlab="Residue", ylab="Mean square displacement", cex.axis=1.25, cex.lab=1.4)
points(x2,y2,col=col2, type="l")
dev.off()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment