回复 第6楼 的 zhouyuanshen:
<br />
# b is a GAM model;<br />
b$coefficients[1] <- 0; #Set the effect of intercept is zero;<br />
b$coefficients[2:9] <- 0; #set the effect of x1 is zero, you need to check how many knots x1 has;</p>
<p>f0 <- predict(b); #The effect of variables except intercept and x1</p>
<p>
</p>