Exercise

• What is the result of

  bool_demo <- c(TRUE, FALSE, FALSE)
  mean(bool_demo)
  

• What is the result of

  char_demo <- c("I", "am", "not", "hungry")
  bool_demo <- c(TRUE, TRUE, FALSE, TRUE)
  char_demo[bool_demo]