# Load dataset
data(PimaIndiansDiabetes2, package="mlbench");
# Fit GAM model
fit <- mgcv::gam(
diabetes ~ s(age) + s(mass) + s(pedigree) + pressure + glucose,
data=PimaIndiansDiabetes2,
family=binomial
);
# Calculate AICc
AICc(fit);
Run the code above in your browser using DataLab