自動車の変数間の共曲率（concurvity）を調べる
それでは、モデル内の変数「同士」の共曲率を見てみましょう。
mod の各変数ペアの共曲率を確認したら、次の質問に答えてください。
最悪ケースの共曲率が最も大きいのは、どの2変数の組み合わせですか？
この演習はコースの一部です
Rで学ぶGeneralized Additive Models (GAMs) による非線形モデリング
実践的なインタラクティブ演習
このサンプルコードを完成させて、この演習に挑戦してみましょう。
library(mgcv)
# Fit the model
mod <- gam(hw.mpg ~ s(length) + s(width) + s(height) + s(weight),
data = mpg, method = "REML")
# Check pairwise concurvity
___