R/I_qqVett.R

In qgam: Smooth Additive Quantile Regression Models

#### Vettorized empirical cdf
.qqVett <- function(y, mu){
  
  nq <- ncol( mu )
  nobs <- length( y )
  
  out <- sapply(1:nq,
                function(ii){
                  return( sum( (y - mu[ , ii]) < 0 ) / nobs )
                })
  
  return( out )
}