paretoIV(location = 0, lscale = "loge", linequality = "loge",
lshape = "loge",
iscale = 1, iinequality = 1, ishape = NULL, imethod = 1)
paretoIII(location = 0, lscale = "loge", linequality = "loge",
iscale = NULL, iinequality = NULL)
paretoII(location = 0, lscale = "loge", lshape = "loge",
iscale = NULL, ishape = NULL)
Links
for more choices.
A log link is the dNULL
value means that it is obtained internally.
If convergence failure occurs, use these arguments to input
some alternative initial values."vglmff"
(see vglmff-class
).
The object is used by modelling functions such as vglm
,
and vgam
.The location parameter is assumed known otherwise the Pareto(IV) distribution will not be a regular family. This assumption is not too restrictive in modelling because in typical applications this parameter is known, e.g., in insurance and reinsurance it is pre-defined by a contract and can be represented as a deductible or a retention level.
The inequality parameter is so-called because of its interpretation in the economics context. If we choose a unit shape parameter value and a zero location parameter value then the inequality parameter is the Gini index of inequality, provided $g \leq 1$.
The fitted values are currently NA
because I
haven't worked out what the mean of $Y$ is yet.
There are a number of special cases of the Pareto(IV) distribution.
These include the Pareto(I), Pareto(II), Pareto(III), and Burr family
of distributions.
Denoting $PIV(a,b,g,s)$ as the Pareto(IV) distribution,
the Burr distribution $Burr(b,g,s)$ is $PIV(a=0,b,1/g,s)$,
the Pareto(III) distribution $PIII(a,b,g)$ is $PIV(a,b,g,s=1)$,
the Pareto(II) distribution $PII(a,b,s)$ is $PIV(a,b,g=1,s)$,
and
the Pareto(I) distribution $PI(b,s)$ is $PIV(b,b,g=1,s)$.
Thus the Burr distribution can be fitted using the
negloge
link
function and using the default location=0
argument.
The Pareto(I) distribution can be fitted using paretoff
but there is a slight change in notation: $s=k$ and
$b=\alpha$.
Arnold, B. C. (1983) Pareto Distributions. Fairland, Maryland: International Cooperative Publishing House.
ParetoIV
,
paretoff
,
gpd
.pdata <- data.frame(y = rparetoIV(2000, scale = exp(1),
ineq = exp(-0.3), shape = exp(1)))
par(mfrow = c(2, 1))
with(pdata, hist(y)); with(pdata, hist(log(y)))
fit <- vglm(y ~ 1, paretoIV, data = pdata, trace = TRUE)
coef(fit, matrix = TRUE)
Coef(fit)
summary(fit)
Run the code above in your browser using DataLab