# \donttest{
# Load example data
data(GasolineYield)
# Fit competing models
fit1 <- gkwreg(yield ~ batch, data = GasolineYield, family = "kw")
fit2 <- gkwreg(yield ~ batch + temp, data = GasolineYield, family = "kw")
fit3 <- gkwreg(yield ~ temp, data = GasolineYield, family = "kw")
# Calculate AIC for single model
AIC(fit1)
# Compare multiple models (with proper names)
AIC(fit1, fit2, fit3)
# Use different penalty
AIC(fit1, k = 4)
# }
Run the code above in your browser using DataLab