R中的GAM：计算单个术语的贡献

Question

假设我使用gam包的mgcv函数计算了R中的GAM。我可以得到给定数据集的模型预测值如下：

# Load data
data("mtcars")

# Fit model
g <- gam(mpg ~ s(disp, k = 3) + s(hp, k = 3), data = mtcars)

# Get values for given data set
predict(g)

现在，我感兴趣的是每个预测器对每个预测值的贡献。因此，对于数据集中的第一辆汽车Mazda RX4，mpg的预测值有多少归因于disp的术语以及归因于hp的多少。有没有一种从模型中提取此信息的简单方法？

Answer 1

答案是predict(g, type = "terms")