### Upper tail dependence
if (interactive()){
chi.bsn(u=0.9,corr=0.5, shape=c(1,-2), tail="upper")
}
### Lower tail dependence
if (interactive()){
chi.bsn(u=0.9, corr=0.5, shape=c(1,-2), tail="lower")
}
Run the code above in your browser using DataLab