다중 스케일 상호작용을 포함한 오염 모델

meuse 데이터셋에는 같은 스케일의 예측 변수들(x, y)과 서로 다른 스케일의 변수들(elev, dist, om)이 함께 들어 있어요. 이전 연습 문제에서는 위치와 고도를 사용해 카드뮴 오염을 예측하는 모델을 적합했죠:

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

이번 연습에서는 텐서 스무스 te()를 사용해, 서로 다른 스케일임에도 불구하고 여러 변수가 상호작용할 수 있도록 하는 모델을 만들어 볼 거예요.

이를 x, y, elev이 각각의 스케일에서 변하면서 하나의 te() 항에서 모두 상호작용하도록 변환하세요.
그런 다음 모델을 요약하고 plot()으로 시각화하세요.