R/dgev.R

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

Defines functions dgev

Documented in dgev

dgev <-
function(x,shape=1,scale=1,location=0,log=FALSE)
{
	fx <- 1/scale*(1+shape*((x-location)/scale))^(-1/shape-1)*exp(-(1+shape*((x-location)/scale))^(-1/shape))
	if(log) return(log(fx))
	else return(fx)
}