Skip to content

Instantly share code, notes, and snippets.

@tony91782
Created May 21, 2011 05:38
plot.samp = function(x, ...){
par(mfrow=c(1,3))
hist(x$means, main="means")
abline(v=x$mu, col="blue")
abline(v=x$mu + 2*x$std/sqrt(x$N), col = "red", lty="dashed")
abline(v=x$mu - 2*x$std/sqrt(x$N), col = "red", lty="dashed")
hist(x$sds, main = "std devs")
abline(v=x$std, col="blue")
hist(x$ses, main = "std errors")
abline(v=x$std/sqrt(x$N), col = "blue")
}
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment