# R Program to test whether
# a value is logical or not
  
# Calling is.logical() function
is.logical(0)
is.logical(!5)
is.logical(T)
is.logical(FALSE)

[1] FALSE
[1] TRUE
[1] TRUE
[1] TRUE

# R Program to test whether
# a value is logical or not
  
# Creating vector
x1 <- c(1, 2, 3, 4)
x2 <- c(T, F, TRUE, FALSE, ! 2)
x3 <- c(1, T, F)
  
# Calling is.logical() function
is.logical(x1)
is.logical(x2)
is.logical(x3)

[1] FALSE
[1] TRUE
[1] FALSE