17                       return.endf = TRUE, ...) {  argument
47   if (!return.endf)
54   endf <- rep_len(NA_real_, sum(all.ncol.Hk[names.which.X.sm.osps]))  functionVar
55   names(endf) <- vlabel(names.which.X.sm.osps,
61   endf.all0 <-  diag(solve(crossprod(X.vlm.aug), crossprod(X.vlm)))
67   endf.all <-  diag(solve(crossprod(qr.R(qr1)), crossprod(qr.R(qr2))))
72   endf.all <- endf.all0
78     return(endf.all)
85     endf[iterm] <- sum(endf.all[(startstop[[iterm]])])
87   endf[endf < 1] <- 1  # Cannot be smoother than linear
90   if (nonlinear.edf) endf - 1 else endf
138   endf <- endfpvgam(object)  functionVar
140   print(round(endf, digits = digits + 2), digits = digits, scientific = FALSE)
142   if (length(endf) > 1)
144       format(sum(endf), digits = digits), "\n")
146   object@post$endf <- endf  # Good to save this on the object
183 if (!isGeneric("endf"))
184     setGeneric("endf", function(object, ...)  generic
185     standardGeneric("endf"))
188 setMethod("endf", "pvgam", function(object, ...)  method
191 setMethod("endf", "summary.pvgam", function(object, ...)  method