gistfile1.r

prep.comp <- function(x){
  if (names(x)[1]!='Week'){
    stop("The first column should be 'Week'. Check the data.")
  }
  x[['Week']] <- as.character(x[['Week']])
  x[['weekstart']] <- strsplit(x[['Week']],split=' - ',fixed=TRUE)[[1]]
  x[['weekend']] <- strsplit(x[['Week']],split=' - ',fixed=TRUE)[[2]]
  x[['weekstart']] <- as.Date(x[['weekstart']],format='%Y-%m-%d')
  x[['weekend']] <- as.Date(x[['weekend']],format='%Y-%m-%d')
  return(x)
}