# NOT RUN {
# Data assignment
data<-c(16.34, 10.76, 11.84, 13.55, 15.85, 18.20, 7.51, 10.22, 12.52, 14.68, 16.08,
19.43,8.12, 11.20, 12.95, 14.77, 16.83, 19.80, 8.55, 11.58, 12.10, 15.02, 16.83,
16.98, 19.92, 9.47, 11.68, 13.41, 15.35, 19.11)
# Return an estimate of the cumulant of order 7
nKS(7, data)
# Return an estimate of the cumulant of order 1, that is the mean (R command: mean(data))
nKS(1, data)
# Return an estimate of the cumulant of order 2, that is the variance (R command: var(data))
nKS(2, data)
# Return an estimate of the skewness (R command: skewnes(data) in the library "moments")
nKS(3, data)/sqrt(nKS(2, data))^3
# Return an estimate of the kurtosis (R command: kurtosis(data) in the library "moments")
nKS(4, data)/nKS(2, data)^2 + 3
# }
Run the code above in your browser using DataLab