utils.R 84 B

1234
  1. # create the standard error function
  2. se <- function(x, ...) sd(x)/sqrt(length(x))