nVec <- seq(20, 50, by = 5)
 is.vector(nVec, mode = "numeric")

## [1] TRUE