Run »
repeat_times <- rep(c(1,2,3), times = 3) repeat_times
[1] 1 2 3 1 2 3 1 2 3