# Trivariate Extremal Skew-t
pExtDep(q = c(1, 1.2, 0.6), type = "lower", method = "Parametric",
model = "EST", par = c(0.2, 0.4, 0.6, 2, 2, 2, 1))
# Bivariate Extremal-t
pExtDep(q = rbind(c(1.2, 0.6), c(1.1, 1.3)), type = "inv.lower",
method = "Parametric", model = "ET", par = c(0.2, 1))
# Bivariate Extremal Skew-t
pExtDep(q = rbind(c(1.2, 0.6), c(1.1, 1.3)), type = "inv.lower",
method = "Parametric", model = "EST", par = c(0.2, 0, 0, 1))
# Non-parametric angular density
beta <- c(1.0000000, 0.8714286, 0.7671560, 0.7569398,
0.7771908, 0.8031573, 0.8857143, 1.0000000)
pExtDep(q = rbind(c(0.1, 0.9), c(0.2, 0.8)),
method = "NonParametric", par = beta)
Run the code above in your browser using DataLab