# NOT RUN {
mu <- c(0,1,2)
sigma <- c(0.5,1,2)
lmd <- c(1,2,3)
mean0 <- splitn_mean(mu, sigma, lmd)
var0 <- splitn_var(sigma, lmd)
skewness0 <- splitn_skewness(sigma, lmd)
kurtosis0 <- splitn_kurtosis(lmd)
# }
Run the code above in your browser using DataLab