fix_family_qf: Fix $qf() slot of a mgcv family
In dill/gamUtils: Some extra utilities for generalized additive modelling

Description Usage Arguments Examples

View source: R/fix_family_qf.R

Fix $qf() slot of a mgcv family.

1	fix_family_qf(fam)

fam

an mgcv family

library(mgcvUtils); library(MASS)
b <- gam(list(accel~s(times,k=20,bs="ad"),~s(times)),
         data=mcycle,family=gaulss())

b$family <- fix_family_qf( b$family )
qfit <- sapply(c(0.1, 0.5, 0.9),
               function(.q)
                 b$family$qf(.q, b$fitted.values))

plot(mcycle, ylim = c(-150, 100))
for(ii in 1:ncol(qfit)){
  lines(mcycle$times, qfit[ , ii], col = 2)
}