University School of Automation & Robotics

Personal resource archive for various courses.

q10.r

library(moments)

x <- c(25, 29, 30, 17, 19, 30, 18, 28, 31, 33, 26, 28)
kurtosis(x)
kurtosis(x) - 3