R/psevdist.R

Defines functions psevdist

Documented in psevdist

psevdist <-
function(x,sevdist){
  if(sevdist$type=="plain") return(sevdist$par[[2]](x))
  if(sevdist$type=="spliced") return(pspliced(x,sevdist))
  if(sevdist$type=="mixing") return(pmixing(x,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.