set.seed(111) x <- rnorm(1000) dat <- x hist(dat, main="Symmetric", xlab="") abline(v=c(mean(dat), median(dat)), col=(c("blue", "green")), lwd=3)
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.