inst/Courses/Open_Intro/Figures/mod1_leftskew.R

set.seed(111)
x <- abs(rnorm(1000))
dat <- 2.5-x
hist(dat, main="Left Skew", xlab="")
abline(v=c(mean(dat), median(dat)), col=(c("blue", "green")), lwd=3)
ncarchedi/swirl_OLD documentation built on May 23, 2019, 1:05 p.m.