kurtosis(c(100,200,300, 400), type = 2)
kurtosis(c(100,200,300, 400), type = 1)
kurtosis(c(100,200,300, 400), type = 3)
w<-sample(4,10, TRUE)
x <- sample(10, 1000, replace=TRUE, prob=w)
kurtosis(x, type=2)
kurtosis(x, type=3)
# see it in context.
detail(x)
Run the code above in your browser using DataLab