# NOT RUN {
color <- c("red", "blue")
target <- 1:5
color[seql(color, target)]
# "red" "blue" "red" "blue" "red"
color <- c("red", "green", "blue", "yellow", "orange")
target <- 1:3
color[seql(color, target)]
# "red" "green" "blue"
# }
Run the code above in your browser using DataLab