Mean age of 3 randomly chosen 116 students

Lec28.R

library(lubridate)
library(dplyr)
library(mosaic)
set.seed(41)

students <- c(
  "Annie", "Caroline", "David", "Ian", "Jack", "Jared", "Joccelyn", "Joe", 
  "Julia", "Luisangel", "Madeline", "Rebecca", "Samuel", "Sarah", "Sierra", 
  "Sophia", "Stefan", "Steven", "Theodore", "Tina", "Wengel", "William", "Zach"
)

# Compute the sample mean age once
resample(students, size=3, replace=FALSE)
birthdays <- c("2000-01-01", "2000-01-01", "2000-01-01")
ages <- interval(ymd(birthdays), ymd("2016-11-28")) / dyears(1)
mean(ages)

# Do it again...
# Do it once more...