# Example using the 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))
# Example using the 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))
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))
# Example of non-parametric angular density
par <- ExtremalDep:::rcoef(k=6, pm=list(p0=0.05, p1=0.1))
pExtDep(q=rbind(c(0.1,0.9),c(0.2,0.8)), method="NonParametric", par=par$beta)
Run the code above in your browser using DataLab