Menetapkan kompleksitas model motorcycle
Jumlah fungsi basis dalam sebuah smooth sangat memengaruhi bentuk yang dapat diambil oleh model. Di sini, Anda akan berlatih mengubah jumlah fungsi basis dalam model dan menelaah hasilnya.
Latihan ini merupakan bagian dari kursus
Pemodelan Nonlinier dengan Generalized Additive Models (GAM) di R
Instruksi latihan
- Pasang sebuah GAM dengan 3 fungsi basis pada data
mcycle, denganaccelsebagai fungsi smooth daritimes. - Pasang GAM yang sama lagi, tetapi kali ini dengan 20 fungsi basis.
- Gunakan fungsi
plot()yang disediakan untuk memvisualisasikan kedua model.
Latihan interaktif langsung praktik
Cobalah latihan ini dengan melengkapi kode contoh ini.
library(mgcv)
# Fit a GAM with 3 basis functions
gam_mod_k3 <- gam(accel ~ s(times, k = ___), data = mcycle)
# Fit with 20 basis functions
gam_mod_k20 <- gam(___)
# Visualize the GAMs
par(mfrow = c(1, 2))
plot(gam_mod_k3, residuals = TRUE, pch = 1)
plot(gam_mod_k20, residuals = TRUE, pch = 1)