sandbox/seq_split.R

seq_split <- function(sequence, n_splits) {
  groups <- cut(seq_along(sequence), breaks = n_splits, labels = FALSE)
  split_sequence <- split(sequence, groups)
  return(split_sequence)
}
JustinMShea/ExpectedReturns documentation built on Aug. 26, 2024, 1:47 a.m.