R/qgev.R

Defines functions qgev

Documented in qgev

qgev <-
function(p,shape=1,scale=1,location=0,lower.tail=TRUE,log.p=FALSE)
{
	if(log.p) p <- exp(p)
	if(!lower.tail) p <- 1 - p

  xF <- location + scale/shape * ((-log(p))^(-shape) - 1)

	return(xF)
}

Try the FAdist package in your browser

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

FAdist documentation built on March 18, 2022, 5:24 p.m.