# \donttest{
# Load example data
data(GasolineYield)
# Fit a Kumaraswamy regression model
fit <- gkwreg(yield ~ batch + temp, data = GasolineYield, family = "kw")
# Extract log-likelihood
ll <- logLik(fit)
print(ll)
# Access attributes
cat("Log-likelihood:", as.numeric(ll), "\n")
cat("Parameters:", attr(ll, "df"), "\n")
cat("Observations:", attr(ll, "nobs"), "\n")
# }
Run the code above in your browser using DataLab