Nothing
# Version: 30-11-2012, Daniel Fischer
plotPI <- function(X,g,type="pair",goi=NULL,mc=1,alg="Cnaive",col="black",highlight=NULL,hlCol="red",pch=20,zoom=FALSE,order=NULL,...){
ifelse(is.null(order), chOrder <- TRUE, chOrder <- order)
probs <- estPI(X=X,g=g,type=type,goi=goi,mc=mc,order=chOrder,alg=alg)
plot(probs,col=col,highlight=highlight,hlCol=hlCol,pch=pch,zoom=zoom,...)
}
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.