testfun <- function(x){ require(dplyr) out <- group_by(x, st) %>% summarise(aveAbu = mean(abundance)) }
Add the following code to your website.
REMOVE THIS Copy to clipboard
For more information on customizing the embed code, read Embedding Snippets.