R/utils.R

rescale <- function (x){
  x <- as.numeric(x)
  (x / sum(x,na.rm=T))*100
  }

get_mode <- function(v) {
  uniqv <- unique(v)
  uniqv[which.max(tabulate(match(v, uniqv)))]
}
lajh87/tessa documentation built on July 6, 2019, 12:06 a.m.