R/pgamma3.R

In tpetzoldt/FAdist: Distributions that are Sometimes Used in Hydrology

Defines functions pgamma3

Documented in pgamma3

pgamma3 <-
function(q,shape=1,scale=1,thres=0,lower.tail=TRUE,log.p=FALSE)
{
	Fx <- pgamma(q-thres,shape,1/scale)
	if(!lower.tail) Fx <- 1 - Fx
	if(log.p) Fx <- log(Fx)
	return(Fx)
}