mmean <- function(x,est=tmean,...){ center<-NA if(is.list(x))center=lapply(x,est,...) if(is.matrix(x))center<-apply(x,2,est,...) center }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.