y <- rnorm(100)
g <- rep(1:2, each=50)
diffPlot(y, g, ylab="DV", xlab="", main="Plot of Means with Floating Axis for Mean Difference",
grp.names=c("Control", "Experimental"), sub="Arms Indicate 95 Percent CIs")Run the code above in your browser using DataLab