Parameter vector of the generalized hyperbolic distribution.
Value
ghypMean gives the mean of the generalized hyperbolic distribution,
ghypVar the variance, ghypSkew the skewness,
ghypKurt the kurtosis, and ghypMode the mode. The
formulae used for the mean is given in Prause (1999). The variance,
skewness and kurtosis are obtained using the recursive formula
implemented in ghypMom which can calculate moments of
all orders about any point.
The mode is found by a numerical optimisation using
optim. For the special case of the hyperbolic
distribution a formula for the mode is available, see
hyperbMode.
The parameterization of the generalized hyperbolic distribution used
for these functions is the (alpha,beta) one. See
ghypChangePars to transfer between parameterizations.
Prause, K. (1999) The generalized hyperbolic models: Estimation,
financial derivatives and risk measurement. PhD Thesis, Mathematics
Faculty, University of Freiburg.
R version 3.3.1 (2016-06-21) -- "Bug in Your Hair"
Copyright (C) 2016 The R Foundation for Statistical Computing
Platform: x86_64-pc-linux-gnu (64-bit)
R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.
R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.
Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.
> library(HyperbolicDist)
> png(filename="/home/ddbj/snapshot/RGM3/R_CC/result/HyperbolicDist/ghypMeanVarMode.Rd_%03d_medium.png", width=480, height=480)
> ### Name: Specific Generalized Hyperbolic Moments and Mode
> ### Title: Moments and Mode of the Generalized Hyperbolic Distribution
> ### Aliases: ghypMean ghypVar ghypSkew ghypKurt ghypMode
> ### Keywords: distribution
>
> ### ** Examples
>
> Theta <- c(2,2,1,2,2)
> ghypMean(Theta)
[1] 4.125532
> ghypVar(Theta)
[1] 3.192044
> ghypSkew(Theta)
[1] 0.7928604
> ghypKurt(Theta)
[1] 1.343511
> ghypMode(Theta)
[1] 3.5
> maxDens <- dghyp(ghypMode(Theta), Theta)
> ghypRange <- ghypCalcRange(Theta, tol = 10^(-3)*maxDens)
> curve(dghyp(x, Theta), ghypRange[1], ghypRange[2])
> abline(v = ghypMode(Theta), col = "blue")
> abline(v = ghypMean(Theta), col = "red")
>
>
>
>
>
> dev.off()
null device
1
>