R/rgh.R

Defines functions rgh

Documented in rgh

rgh <-
function(n, A,B,g,h) {
  if(h>=0) {
    z=stats::rnorm(n)
    A+B*T_g(z,g)*T_h(z,h)
  }
  else  {
    base::stop("negative kurtosis parameter")
  }
}

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.