マルチスケールな相互作用を切り分ける

前の演習では、次のモデルを当てはめました。

tensor_mod <- gam(cadmium ~ te(x, y, elev), 
                  data = meuse, method = "REML")

この演習では、スムーズとテンソルの「相互作用」を組み合わせたモデルを当てはめ、各変数の独立した効果と相互作用の効果を切り分けます。

上のモデルを、x と y が同じスケールで相互作用し、elev の効果は独立したスムーズ、さらに3変数が異なるスケールで相互作用する項を別立てにするように書き換えてください。
モデルを要約し、プロットしてください。