R/qlgamma3.R

Defines functions qlgamma3

Documented in qlgamma3

qlgamma3 <-
function(p,shape=1,scale=1,thres=1,lower.tail=TRUE,log.p=FALSE)
{
	if(log.p) p <- exp(p)
	if(!lower.tail) p <- 1 - p
	xF <- exp(qgamma3(p,shape,1/scale,thres))
	return(xF)
}
tpetzoldt/FAdist documentation built on March 4, 2022, 12:42 a.m.