# NOT RUN {
bvdata <- rbvevd(500, dep = 0.6, model = "log")
M1 <- fbvpot(bvdata, threshold = c(0,0), model = "log")
# }
# NOT RUN {
plot(M1)
# }
# NOT RUN {
plot(M1, mar = 1)
# }
# NOT RUN {
plot(M1, mar = 2)
# }
Run the code above in your browser using DataLab