# \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 BIC for single model
BIC(fit1)
# Compare multiple models (with proper names)
BIC(fit1, fit2, fit3)
# }
Run the code above in your browser using DataLab