R/dztp.R

Defines functions dztp

Documented in dztp

dztp <-
function(y,lambda){
    n<-length(y)
    out<-rep(0,n)
    out[y>=1]<-dpois(y[y>=1],lambda)/(1-dpois(0,lambda))    
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.