R/vector_presets.R

In m-swirski/RiboCrypt: Interactive visualization in genomics

normalizations <- function(use_case = "heatmap") {
  norm <-
  if (use_case == "heatmap") {
    c("transcriptNormalized", "zscore", "sum", "log10sum")
  } else if (use_case == "metabrowser") {
    c("transcriptNormalized", "maxNormalized", "zscore","tpm")
  } else stop("Invalid use case option")
  return(norm)
}