R/rsevdist.R

Defines functions rsevdist

Documented in rsevdist

rsevdist <-
function(n,sevdist){
  if(sevdist$type=="plain") return(sevdist$par[[4]](n))
  if(sevdist$type=="spliced") return(rspliced(n,sevdist))
  if(sevdist$type=="mixing") return(rmixing(n,sevdist))
}

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.