## File Name: tam_aggregate.R
## File Version: 0.04
tam_aggregate <- function(x, group, mean=FALSE, na.rm=TRUE)
{
g1 <- rowsum(x=x, group=group, na.rm=na.rm)
if (mean){
g2 <- rowsum(x=1+0*x, group=group, na.rm=na.rm)
g1 <- g1 / g2
}
ng1 <- as.numeric(paste(rownames(g1)))
g1 <- cbind( ng1, g1 )
return(g1)
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.