# NOT RUN {
data(Events); attach(Events)
MarginalPlot(Event.1, level = 0.95)
MarginalPlot(Event.1, level = 0.50)
MarginalPlot(Event.2, level = 0.95, title="Characteristics of Event 2")
MarginalPlot(Event.2, level = 0.95, colors = FALSE)
# }
Run the code above in your browser using DataLab