다중 규모 상호작용 분리하기

이전 연습 문제에서 다음 모델을 적합했어요:

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

이번 연습에서는 스무딩과 텐서형 상호작용을 포함한 모델을 적합해, 변수들의 독립 효과와 상호작용 효과를 분리해 보겠습니다.

위 모델을 다음과 같이 변환하세요: x와 y는 동일한 척도에서 상호작용하도록 하고, elev의 효과는 별도의 스무딩으로 추가하며, 세 변수가 서로 다른 척도에서 상호작용하는 항은 별도로 추가하세요.
모델을 요약하고 도표로 시각화하세요.