Updated R code! Day 1 code! WHOO!