Description Usage Arguments Value References Examples
dmnts
calculates the density of the multivariate NTS distribution:
f(x_1, \cdots, x_n)=\frac{d^n}{dx_1\cdots dx_n}P(x_n<R_1, \cdots, x_n<R_n).
The multivariate NTS random vector R = (R_1, \cdots, R_n) is defined
R = μ + diag(σ) X,
where
X follows stdNTS_n(α, θ, β, Σ)
1 |
x |
array of the (x_1, \cdots, x_n) |
st |
Structure of parameters for the n-dimensional NTS distribution.
|
numofsample |
number of samples. |
Simulated NTS random vectors
Kim, Y. S. (2020) Portfolio Optimization on the Dispersion Risk and the Asymmetric Tail Risk https://arxiv.org/pdf/2007.13972.pdf
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | library("temStaR")
library(mvtnorm)
strPMNTS <- list(ndim = 2,
mu = c( 0.5, -1.5 ),
sigma = c( 2, 3 ),
alpha = 0.1,
theta = 3,
beta = c( 0.1, -0.3 ),
Rho = matrix( data = c(1.0, 0.75, 0.75, 1.0),
nrow = 2, ncol = 2)
)
dmnts(c(0.6, -1.0), st = strPMNTS)
strPMNTS <- list(ndim = 2,
mu = c( 0, 0, 0 ),
sigma = c( 1, 1, 1 ),
alpha = 0.1,
theta = 3,
beta = c( 0.1, -0.3, 0 ),
Rho = matrix(
data = c(1.0, 0.75, 0.1, 0.75, 1.0, 0.2, 0.1, 0.2, 1.0),
nrow = 3, ncol = 3)
)
pmnts(c(0,0,0), st = strPMNTS)
dmnts(c(0,0,0), st = strPMNTS)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.