q10.r
library(moments)
x <- c(25, 29, 30, 17, 19, 30, 18, 28, 31, 33, 26, 28)
kurtosis(x)
kurtosis(x) - 3
Personal resource archive for various courses.
library(moments)
x <- c(25, 29, 30, 17, 19, 30, 18, 28, 31, 33, 26, 28)
kurtosis(x)
kurtosis(x) - 3