# \donttest{
# Load required package
library(ggplot2)
# Generate data and fit model
set.seed(2203)
y <- rbeta_(50, gamma = 2, delta = 3)
fit <- gkwfit(data = y, family = "beta", plot = FALSE)
# Generate standard diagnostic plots
plot(fit)
# Generate data and fit model with profile = TRUE
fit <- gkwfit(data = y, family = "gkw", profile = TRUE, npoints = 15)
# Standard diagnostic plots
plot(fit)
# }
Run the code above in your browser using DataLab