q3.r
x <- c(4, 12, 36, 108, 324, 972, 2916)
sqrt(x[1] * x[length(x)])
# OR
exp(mean(log(x)))
University School of Automation & Robotics
Personal resource archive for various courses.
Personal resource archive for various courses.
x <- c(4, 12, 36, 108, 324, 972, 2916)
sqrt(x[1] * x[length(x)])
# OR
exp(mean(log(x)))