Skip to content

Instantly share code, notes, and snippets.

/gist:9bfb05dcecac3ecb7491 Secret

Created September 14, 2012 05:55
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 anonymous/9bfb05dcecac3ecb7491 to your computer and use it in GitHub Desktop.
Save anonymous/9bfb05dcecac3ecb7491 to your computer and use it in GitHub Desktop.
Download ZIP
Raw
gistfile1.txt
##Scatter plot for both groups
gap.plot(jitter(rep(0,length(GRO.Controls)),amount = 0.3), gap = c(50,100), xlim=range(-0.5,2), ylim=range(0,max.GRO+0.5),
GRO.Controls, xlab = "", ylab = "Concentrations (pg/ml)", main = "GRO(P=0.0010)")
points(jitter(rep(1,length(GRO.Breast)),amount = 0.3), GRO.Breast, col = "blue")
#axis.break(2,200)
##Places y-axis (#2) on the left side
axis(2)
##Adds x- variable (groups) labels
mtext("Controls", side = 1, at= 0.0, cex=0.5)
mtext("Breast Cancer", side = 1, at= 1.0, cex=0.5)
##Adds median lines for each group
segments(-0.25, median(GRO.Controls), 0.25, median(GRO.Controls), lwd = 2.0)
segments(0.7, median(GRO.Breast), 1.2, median(GRO.Breast), lwd = 2.0)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment