In R, assign numeric variable according to segments of another variable?

Question

Some simple sample data:

test <- c(rep(\'B\', 10), rep(\'A\', 7), rep(\'C\', 10), rep(\'A\', 3))

#1] "B" "B" "B"