Personal resource archive for various courses.
library("psych") x <- c(4, 12, 36, 108, 324, 972, 2916) harmonic.mean(x)