# NOT RUN {
set.seed(1234)
da2 <- wblr.conf(wblr.fit(wblr(runif(5,100,1000),col="red")))
da3 <- wblr.conf(wblr.fit(wblr(rweibull(5,3,1000),col="green4")))
# }
# NOT RUN {
<!-- % not run due to device dependence -->
# }
# NOT RUN {
contour.wblr(list(da2,da3))
# }
Run the code above in your browser using DataLab