Nothing
Summaryordered0<-
function (x, maxsum = 7, pourcent=1)
{
Table <- summary(na.omit(x), maxsum = maxsum)
if(pourcent==0){
return(Table)}
else{
Table<-round(100*Table/sum(Table))
return(Table)
}
}
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.