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 adalah bagian dari kursus
Pemodelan Nonlinier dengan Generalized Additive Models (GAM) di R
Petunjuk 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 praktis
Cobalah latihan ini dengan menyelesaikan kode contoh berikut.
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)