Untitled

Test

R Markdown

Testing random sample generation in R (from lecture 5)

telos.dist <- rnorm(n = 10000, #dreamy sample size
                    mean = 10000, #odin mode
                    sd = 30)
summary(telos.dist)

##    Min. 1st Qu.  Median    Mean 3rd Qu.    Max. 
##    9888    9979    9999    9999   10019   10114

Testing graph generation in R

hist(telos.dist)
abline(v = mean(telos.dist), lwd = 3, col = 2)