data-raw/NFLScores2011.R

In rpruim/Lock5withR: Datasets for 'Statistics: Unlocking the Power of Data'

load("NFLScores2011.rda")
NFLScores2011 <- 
	transform( NFLScores2011, Date = as.character(Date))
NFLScores2011 <- 
	transform( NFLScores2011, 
      Year = ifelse( substr(Date, nchar(Date)-2,nchar(Date)) == "Jan", 2012, 2011))
NFLScores2011 <- 
	transform( NFLScores2011, 
      DateStr = as.character(paste(Year,"-",Date, sep="")))
NFLScores2011 <- 
	transform( NFLScores2011, YDM = lubridate::ydm(as.character(DateStr)) )
NFLScores2011 <- 
	transform( NFLScores2011, 
      Day = factor(as.character(Day), levels=c("Thu", "Sat", "Sun", "Mon")) )