R/utils.R

all_numeric <- function(data) {
    if ("FALSE" %in% purrr::map_lgl(data, is.numeric))
        stop("All columns must be numeric for PCA")
}
dannymorris/smltools documentation built on May 15, 2019, 10:49 a.m.