# NOT RUN {
# Chi-squared (df = 1) Distribution (invalid power method pdf)
con <- find_constants(method = "Polynomial", skews = sqrt(8), skurts = 12,
fifths = 48*sqrt(2), sixths = 480)$constants
pdf_check(c = con, method = "Polynomial")
# Beta (a = 4, b = 2) Distribution (valid power method pdf)
con <- find_constants(method = "Polynomial", skews = -0.467707,
skurts = -0.375, fifths = 1.403122,
sixths = -0.426136)$constants
pdf_check(c = con, method = "Polynomial")
# }
Run the code above in your browser using DataLab