mgcv доступ к функции Assessment.gam

Я использую библиотеку R mgcv

Функция gam возвращает объект со значением edf1

> g = gam(y~s(x, k = 10, bs = "cr"), data = data, scale = 1)
> g$edf1
(Intercept)      s(x).1      s(x).2      s(x).3      s(x).4      s(x).5      s(x).6      s(x).7      s(x).8 
  1.0000000   0.2417857   0.4744928   0.4667241   0.4347516   0.4107624   0.4136064   0.4288544   0.5315970 
     s(x).9 
  0.5941861 
> 

Мне нужно понять, как вычисляется это значение, поэтому я читаю код функции gam().

Внутри gam() результат получается другой функцией

object <- estimate.gam(G, method, optimizer, control, in.out, 
                         scale, gamma, ...)

Проблема в том, что я не могу получить доступ к функции estimate.gam()

> estimate.gam
Error: object 'estimate.gam' not found
> 

Как я могу это решить?