Personal resource archive for various courses.
x <- c(4, 12, NA, 108, 324, NA, 2916, 8748) mean(x, na.rm = TRUE) median(x, na.rm = TRUE)