Skip to content

Instantly share code, notes, and snippets.

Created May 27, 2009 09:39
  • Star 0 You must be signed in to star a gist
  • Fork 0 You must be signed in to fork a gist
Star You must be signed in to star a gist
Save anonymous/118550 to your computer and use it in GitHub Desktop.
library(Cairo)
CairoSVG(filename = "Corr_VS_R(Win)&Calgary_test.svg",
width = 6, height = 6, onefile = TRUE, bg = "transparent",
pointsize = 12)
data_corr <- data.frame(Win,Calgary)
par(tcl=0.35,xaxs="r") # Switch tick marks to insides of axes
plot(data_corr, type = "p", axes=FALSE, col = "blue", lwd = 2)
#y-axis
axis(2, tcl=0.35,at=0:11)
#x-axis
axis(1, tcl=0.35,at=test2)
box()
abline(lm(data_corr[,2]~data_corr[,1]))
dev.off()
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment