R/I_qf.R

In dill/mgcvUtils: Some extra utilities for generalized additive modelling

# Internal to gamUtils?
.qf.gaulss <- function(p, mu, wt = NULL, scale = NULL) {
  out <- qnorm(p, mu[ , 1, drop = TRUE], 1 / mu[ , 2, drop = TRUE])
  return( out )
}

.qf.gaussian <- function(p, mu, wt = NULL, scale = NULL) {
  out <- qnorm(p, mu, sqrt(scale/wt))
  return( out )
}

.qf.gevlss <- function(p, mu, wt = NULL, scale = NULL) {
  out <- mu[ , 1] + exp(mu[ , 2]) * ((-log(p))^(-mu[ , 3])-1) / mu[ , 3]
  return( out )
}