Разные R-квадраты в "relayimpo" и "mgcv" для одной модели

Question

Я хочу вычислить относительную важность каждого предиктора в модели GAM, поэтому я попробовал relaimpo пакет. Ниже приведен пример:

library(relaimpo)
library(mgcv)
gam1 <- gam(mpg ~ s(drat) + s(wt) + s(qsec), data = mtcars, method = "REML")
summary(gam1)       # Here is one R^2
calc.relimp(gam1)   # Here is the other R^2

Странно, что R ^ 2 в summary() составляет 0,867, а R ^ 2 в calc.relimp() составляет 0,837 (83,7%). Почему происходит это разногласие?