infinito em r

# 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
Rocku0