R/helper-get-stc-vars.R

Defines functions get_stc_vars

#' @noRd
get_stc_vars <- function(stems) {
  # Exit
  lapply(
    X = paste0("AMGD", stems),
    FUN = function(x) c(paste0(x, 1:7), x)
  ) |>
    unlist()
}

Try the chms package in your browser

Any scripts or data that you put into this service are public.

chms documentation built on Oct. 17, 2026, 5:07 p.m.