Run »
repeat_each <- rep(c(1,2,3), each = 3) repeat_each
[1] 1 1 1 2 2 2 3 3 3