# Creating a vector x <- c(1, 2, Inf, 4, -Inf, 6, NA) # Calling is.infinite() function is.infinite(x) # F F T F T F T