#Name
#This is a script that contains my answers to Session 3 - Exercises.
#Sets my working directory to the place where my files live.
setwd("~/Dropbox/R_Stat_Workshop/practice_exercises_in_progress")
data <- read.csv("winter_olympic.csv", sep=",", header=TRUE)
#View(data)