Sequence generation with automatic cycling

Sequence generation with automatic cycling

Usage

seql(x, target)

Arguments

x

R object of some length

target

R object of some length

Author

EDG

Examples

if (FALSE) { # \dontrun{
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"
} # }