Intro slides for day 2 in R