# NOT RUN {
dfapply(iris, favstats, select = is.numeric)
dfapply(iris, favstats, select = c(TRUE, TRUE, FALSE, FALSE, FALSE))
dfapply(iris, favstats, select = c(1,2))
dfapply(iris, favstats, select = c("Sepal.Length", "Petal.Length"))
dfapply(HELPrct, table, select = is.factor)
do.call(rbind, dfapply(HELPrct, favstats, select = is.numeric))
# }
Run the code above in your browser using DataLab