R/pgp.R

Defines functions pgp

Documented in pgp

pgp <-
function(q,shape=1,scale=1,lower.tail=TRUE,log.p=FALSE)
{
	Fx <- 1-(1-shape*q/scale)^(1/shape)
	if(!lower.tail) Fx <- 1 - Fx
	if(log.p) Fx <- log(Fx)
	return(Fx)
}

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.