# NOT RUN {
data(bmw) ; data(siemens)
out <- gpdbiv(-bmw, -siemens, ne1 = 100, ne2 = 100)
# }
# NOT RUN {
plot(out)
# }
# NOT RUN {
# }
# NOT RUN {
Make a plot selection (or 0 to exit):
# }
# NOT RUN {
1: plot: Exceedance data
# }
# NOT RUN {
2: plot: Contours of Bivariate Distribution Function
# }
# NOT RUN {
3: plot: Contours of Bivariate Survival Function
# }
# NOT RUN {
4: plot: Tail of Marginal 1
# }
# NOT RUN {
5: plot: Tail of Marginal 2
# }
Run the code above in your browser using DataLab