Displaying 1 result from an estimated 1 matches for "sumdat".
Did you mean:
subdat
2012 Mar 20
1
overriding "summary.default" or "summary.data.frame". How?
...<- function(dat, alphaSort = TRUE, digits = max(3,
getOption("digits") - 3)){
if (!is.data.frame(dat)) dat <- as.data.frame(dat)
nums <- sapply(dat, is.numeric)
datn <- dat[ , nums, drop = FALSE]
if (alphaSort) datn <- datn[ , sort(colnames(datn)), drop = FALSE]
sumdat <- apply(datn, 2, stats::quantile, na.rm=TRUE)
sumdat <- rbind(sumdat, mean= apply(datn, 2, mean, na.rm=TRUE))
sumdat <- rbind(sumdat, sd= apply(datn, 2, sd, na.rm=TRUE))
sumdat <- rbind(sumdat, var= apply(datn, 2, var, na.rm=TRUE))
sumdat <- rbind(sumdat, "NA's"...