d_beta <- as_d(dbeta, shape1 = 2, shape2 = 1)
# The same as `summ_mean(d_beta)`
summ_moment(d_beta, order = 1)
# The same as `summ_var(d_beta)`
summ_moment(d_beta, order = 2, central = TRUE)
# Return the same number
summ_moment(d_beta, order = 3, central = TRUE, standard = TRUE)
summ_skewness(d_beta)
# Return the same number representing non-excess kurtosis
summ_moment(d_beta, order = 4, central = TRUE, standard = TRUE)
summ_kurtosis(d_beta, excess = FALSE)
Run the code above in your browser using DataLab