# LOGICAL OPERATORS

x <- 1:5				# x is a row vector = [1,2,3,4,5]

test <- (x <4)			# test is a row vector (logical <)
					#    = [TRUE  TRUE  TRUE FALSE FALSE]

test <- (x==3)			# test is a row vector (logical =)
					#    = [FALSE FALSE  TRUE FALSE FALSE]

test <- (x>1 & x<4)		# test is a row vector (logical AND)
					#    = [FALSE  TRUE  TRUE FALSE FALSE]

test <- (x>4 | x==2)		# test is a row vector (logical OR)
					#    = [FALSE  TRUE FALSE FALSE  TRUE]

test<- (x != 4)			# test is a row vector (logical NOT =)
					#    = [TRUE  TRUE  TRUE FALSE  TRUE]

test <- (x %in% c(2,4))		# test is a row vector
					#    testing whether the entry is
					#    a 2 or a 4
					#    = [FALSE  TRUE FALSE  TRUE FALSE]