Exercise 4-6

x <- sample(c(TRUE, FALSE), 10, replace = TRUE)
y <- sample(c(TRUE, FALSE), 10, replace = TRUE)

x

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

y

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

print(as.logical(x+y))

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