# data:
df=data.frame(group=sample(letters,100, TRUE),y=sample(100) )
#functions:
FUNS <- function(x) c(N=nrow(x), mean=round(mean(x),0),
sd=round(sd(x), 0), min=round(min(x),0),
max=round(max(x),0))
# Do the computation
compute(y~group, data=df, FUN=FUNS)
Run the code above in your browser using DataLab