R/pztp.R

Defines functions pztp

Documented in pztp

pztp <-
function(y,lambda){
	dummy<-exp(-lambda)
	#cat(paste("length of dummy: ",length(dummy),"\n"))
	#cat(paste("length of ppois: ",length(ppois(y,lambda)),"\n"))
	#cat(paste("---\n"))
    out<-(ppois(y,lambda)-dummy)/(1-dummy)
    out[y<1]=0
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.