## cases where is.numeric.atomic.vector returns
## TRUE
z <- 1:3;names(z) <- letters[1:3]
is.numeric.atomic.vector(z)
is.numeric.atomic.vector(matrix(1:3, nrow=1))
is.numeric.atomic.vector(matrix(1:3, ncol=1))
is.numeric.atomic.vector(1:5)
is.numeric.atomic.vector(letters)
## cases where is.numeric.atomic.vector returns
## FALSE
is.numeric.atomic.vector(list(1:3))
is.numeric.atomic.vector(data.frame(1:3,2:4))
is.numeric.atomic.vector(matrix(1:12, nrow=4))
Run the code above in your browser using DataLab