# NOT RUN {
# Logistic Distribution: mean = 0, sigma = 1
# Find standardized cumulants
stcum <- calc_theory(Dist = "Logistic", params = c(0, 1))
# Find constants without the sixth cumulant correction
# (invalid power method pdf)
con1 <- find_constants(method = "Polynomial", skews = stcum[3],
skurts = stcum[4], fifths = stcum[5],
sixths = stcum[6], n = 25, seed = 1234)
# Plot cdf with cumulative probability calculated up to delta = 5
plot_cdf(c = con1$constants, method = "Polynomial",
title = "Invalid Logistic CDF", calc_cprob = TRUE, delta = 5)
# Find constants with the sixth cumulant correction
# (valid power method pdf)
con2 <- find_constants(method = "Polynomial", skews = stcum[3],
skurts = stcum[4], fifths = stcum[5],
sixths = stcum[6], Six = seq(1.5, 2, 0.05))
# Plot cdf with cumulative probability calculated up to delta = 5
plot_cdf(c = con2$constants, method = "Polynomial",
title = "Valid Logistic CDF", calc_cprob = TRUE, delta = 5)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab