# \donttest{
# Generate data and fit model
set.seed(2203)
y <- rkw(50, alpha = 2, beta = 3)
fit <- gkwfit(data = y, family = "kw", plot = FALSE, hessian = TRUE)
# Calculate confidence intervals for all parameters
ci <- confint(fit)
print(ci)
# 90% confidence interval
ci_90 <- confint(fit, level = 0.90)
print(ci_90)
# Confidence interval for specific parameter
ci_alpha <- confint(fit, parm = "alpha")
print(ci_alpha)
# }
Run the code above in your browser using DataLab