Nothing
plot.PP3 <-
function(x, number, main, nbig=10, colvec=1, lab=NULL, ...){
if (missing(number)) {
if (missing(main))
main <- "Projection Index Value Histogram"
ix3sizeplot(x, main=main, nbig=nbig)
}
else {
if (missing(main))
main=""
pdataplot(x, number=number, colvec=colvec, lab=lab, main=main, ...)
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.