R/qgh.R

Defines functions qgh

Documented in qgh

qgh <-
function(q,A,B,g,h,log.p = FALSE) {
  sapply(q,function(q) {
    if(h >= 0) {
      u=stats::qnorm(q, log.p=log.p)
      v=A+B*T_g(u,g)*T_h(u,h)
    }
    else  {
      base::stop("negative kurtosis parameter")
    }
    v
  })
}

Try the OpVaR package in your browser

Any scripts or data that you put into this service are public.

OpVaR documentation built on Sept. 8, 2021, 5:07 p.m.