if(interactive()){
# Example using the trivariate Husler-Reiss
set.seed(1)
data <- rExtDep(n=10, model="HR", par=c(2,3,3))
# Example using the semi-parammetric generator of maxima
set.seed(2)
par <- ExtremalDep:::rcoef(k=6, pm=list(p0=0.05, p1=0.1))
data <- rExtDep(n=10, model="semi.bvevd", par=par$beta,
mar=rbind(c(0.2, 1.5, 0.6),c(-0.5, 0.4, 0.9)))
# Example using the semi-parammetric generator of maxima
set.seed(3)
data <- rExtDep(n=10, model="semi.bvexceed", par=par$beta,
threshold=c(0.2, 0.4), exceed.type="and")
}
Run the code above in your browser using DataLab