# NOT RUN {
## Plot 3D profile
x11(width=5,height=5,pointsize=5)
titel<-"Example plot"
probs=c(0.95,0.99,0.999,0.9999) ## probabilities
pplot(res,"Full 2D Profile", ppm, best, quantile(res,probs=probs))
# }
Run the code above in your browser using DataLab