set.seed(123)
(y <- rnorm(10))
#> [1] -0.56047565 -0.23017749 1.55870831 0.07050839 0.12928774 1.71506499
#> [7] 0.46091621 -1.26506123 -0.68685285 -0.44566197
misc::split_data(y, 0.5)
#> [1] 1 2 4 6 7 9
misc::split_data(y, 0.5, type_split = "sequential")
#> [1] 1 2 3 4 5