R/elongate_arg.R

Defines functions elongate_arg

# #' @export
elongate_arg <- function(x, blocks) {
  if (length(x) == 1) {
    rep(x, length(blocks))
  } else {
    x
  }
}

Try the RGCCA package in your browser

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

RGCCA documentation built on Oct. 9, 2023, 5:09 p.m.