R/utils.R

In trinker/hclustext: Optimized Hierarchical Clustering for Text Data

pn <- function(x, y) {
    m <- prettyNum(x, big.mark = ",", scientific = FALSE)
    paste0(paste(rep(" ", y - nchar(m)), collapse = ""), m)
}


# min max scaling function
min_max <- function(x) (x - min(x, na.rm = TRUE))/(max(x, na.rm = TRUE) - min(x, na.rm = TRUE))


above <- function(x, threshhold) which(x >= threshhold)