R/qpolicy_loss.R

Defines functions qpolicy_loss

Documented in qpolicy_loss

qpolicy_loss <-
function(q,mu,delta,lambda,theta,family,y.max=20,zt=TRUE){
	foo<-function(s){
	ppolicy_loss(s,mu,delta,lambda,theta,family,y.max,zt) -q
	}
    out<-uniroot(foo,lower=0,upper=(mu +4*mu*sqrt(delta))*2*lambda)$root
    return(out)
}

Try the CopulaRegression package in your browser

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

CopulaRegression documentation built on May 29, 2017, 5:47 p.m.