Nothing
summary.BinSupVarsBiplot<-function(object, Normal=TRUE, latex=FALSE, kable=FALSE, ...){
return(summary.Binary.Logistic.Biplot(object, Normal=Normal, latex=latex, kable=kable, ...))
}
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.