Nothing
`m4plNoMoreSummary` <-
function(x){
stat1 <- sapply(x, mean, na.rm=TRUE) ##
stat2 <- sapply(x, sd, na.rm=TRUE) ##
res <- data.frame(t(data.frame(mean=stat1,sd=stat2)))
return(res)
}
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.