### Extremal-t
if (interactive()){
## Bivariate
r_extr_mod("Extremalt", n=5, par=c(0.5,2))
}
if (interactive()){
## Trivariate
r_extr_mod("Extremalt", n=5, par=c(0.5,0.6,0.4,2))
}
### Extremal Skew-t
if (interactive()){
## Bivariate
r_extr_mod("Skewt", n=5, par=c(0.5,-1,1,2))
}
if (interactive()){
## Trivariate
r_extr_mod("Skewt", n=5, par=c(0.5,0.6,0.4,-2,-2,5,2))
}
Run the code above in your browser using DataLab