location
,
scale parameter scale
and
shape parameter shape
.dgev(x, location = 0, scale = 1, shape = 0, log = FALSE, tolshape0 =
sqrt(.Machine$double.eps), oobounds.log = -Inf, giveWarning = FALSE)
pgev(q, location = 0, scale = 1, shape = 0)
qgev(p, location = 0, scale = 1, shape = 0)
rgev(n, location = 0, scale = 1, shape = 0)
length(n) > 1
then the length is taken to be the number required.log = TRUE
then the logarithm of the density is returned.1+shape*(x-location)/scale > 0
. Outside that region, the
logarithm of the density is assigned oobounds.log
, which
equates to a zero density.
dgev
gives the density,
pgev
gives the distribution function,
qgev
gives the quantile function, and
rgev
generates random deviates.gev
, the n
, all the above arguments may be vectors and
are recyled to the appropriate length if necessary.gev
,
egev
,
vglm.control
.loc <- 2; sigma <- 1; xi <- -0.4
x <- seq(loc - 3, loc + 3, by = 0.01)
plot(x, dgev(x, loc, sigma, xi), type = "l", col = "blue", ylim = c(0,1),
main = "Blue is density, red is cumulative distribution function",
sub = "Purple are 5,10,...,95 percentiles", ylab = "", las = 1)
abline(h = 0, col = "blue", lty = 2)
lines(qgev(seq(0.05, 0.95, by = 0.05), loc, sigma, xi),
dgev(qgev(seq(0.05, 0.95, by = 0.05), loc, sigma, xi), loc, sigma, xi),
col = "purple", lty = 3, type = "h")
lines(x, pgev(x, loc, sigma, xi), type = "l", col = "red")
abline(h = 0, lty = 2)
pgev(qgev(seq(0.05, 0.95, by = 0.05), loc, sigma, xi), loc, sigma, xi)
Run the code above in your browser using DataLab