Chapter 5 exercise 7

Sign in to test your solution.
Weekly$Direction <- as.numeric(Weekly$Direction == "Up") Weekly <- Weekly[1:200, ]