[R] AIC for robust GAM ?

[varin sacha]

Dear R-Experts,

Here below my reproducible R code.
How can I get the AIC of my model (robust GAM) ?

Best Regards,


y<-c(499,491,500,517,438,495,501,525,516,494,500,453,479,481,505,465,477,520,520,480,477,416,502,503,497,513,492,469,504,482,502,498,463,504,495)
x<-c(499,496,424,537,480,484,503,575,540,436,486,506,496,481,508,425,501,519,546,507,452,498,471,495,499,522,509,474,502,534,504,466,527,485,525)
library(robustgam)
true.family <- poisson()
fit=robustgam(x,y,sp=0,family=true.family,smooth.basis='ps',K=3)
AIC(fit)