Nothing
AllSummary <-
function(AllNames,Directry=getwd(),GreaterThanNum=0,PasteIND=1){
yyy=AllSummary2(AllNames)
IndStatements=lapply(yyy[[1]],AddOnINDStatements,PasteIND)
return(c(list("Average"=yyy[[2]]),list("INDStatements"=IndStatements)))}
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.