Quiz 1.R

# Quiz 1
# ============
  
#  Question 1
# ------------
  file.info("data/en_US/en_US.blogs.txt")$size / 1024^2

# Question 2
# ------------
  blogs <- readLines("data/en_US/en_US.blogs.txt")
  news <- readLines("data/en_US/en_US.news.txt")
  twitter <- readLines("data/en_US/en_US.twitter.txt")
  length(twitter)

# Question 3
# ------------
  max(nchar(blogs))
  max(nchar(news))
  max(nchar(twitter))

# Question 4
# ------------
  love_count <- sum(grepl("love", twitter))
  hate_count <- sum(grepl("hate", twitter))
  love_count / hate_count

# Question 5
# ------------
  biostats <- grep("biostats", twitter)
  twitter[biostats]

# Question 6
# ------------
  sum(grepl("A computer once beat me at chess, but it was no match for me at kickboxing", twitter))