q9.r
library("psych")
x <- c(4, 12, 36, 108, 324, 972, 2916)
mean(x, na.rm = TRUE)
geometric.mean(x, na.rm = TRUE)
harmonic.mean(x, na.rm = TRUE)
University School of Automation & Robotics
Personal resource archive for various courses.
Personal resource archive for various courses.
library("psych")
x <- c(4, 12, 36, 108, 324, 972, 2916)
mean(x, na.rm = TRUE)
geometric.mean(x, na.rm = TRUE)
harmonic.mean(x, na.rm = TRUE)