meuse データセットには、同じスケールの予測変数（x、y）と、異なるスケールの予測変数（elev、dist、om）が含まれています。前の演習では、位置と標高を説明変数としてカドミウム汚染を予測するモデルを当てはめました。

mod <- gam(cadmium ~ s(x, y) + s(elev), 
           data = meuse, method = "REML")

この演習では、テンソルスムース te() を使って、スケールが異なっていても複数の変数が相互作用できるモデルを作成します。

GAMの交互作用を可視化して読み解く