inst/efas/functions/my_summary.R

my_summary <- function(x) {
        funs <- c(mean, sd, skewness, kurtosis, median, mad)
        sapply(funs, function(f)f(x, na.rm = TRUE))
}
PsyChiLin/EFAshiny documentation built on May 27, 2019, 12:17 p.m.