Nothing
plotNum<-
function(X,LI,...){
tab.num<-data.frame(X[,sapply(X,is.numeric)])
names(tab.num)<-names(X)[sapply(X,is.numeric)]
if(ncol(tab.num)>0.5){
dev.new()
s.corcircle(cor(tab.num,LI,use="pairwise.complete.obs"),...)
}
}
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.