R/elongate_arg.R

Defines functions elongate_arg

# #' @export
elongate_arg <- function(x, blocks) {
  if (length(x) == 1) {
    rep(x, length(blocks))
  } else {
    x
  }
}
Tenenhaus/RGCCA documentation built on Feb. 12, 2024, 8:34 a.m.