inst/Courses/Open_Intro/Figures/mod1_rightskew.R

set.seed(111)
x <- rnorm(1000)
dat <- abs(x)
hist(dat, main="Right 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.