data-raw/nba-data.R

In dennist2/MerlinV1: What the Package Does (One Line, Title Case)

## Clean NBA.csv

data <- read.csv(here::here("data-raw","NBA.csv"))
data2 <- transform(data,H1A0=ifelse(data$location=="Home","1","0"),PtDiff=(data$Team.Pts-data$Opp.Pts),D0F1=ifelse(data$SPline>0,"0","1"))
NBA <- transform(data2,strWL=ifelse(data2$PtDiff>0,"1","0"))

change <- c(which(colnames(NBA)=="Date.x"|colnames(NBA)=="Team.x"))
colnames(NBA)[c(change)] <- c("Date","Team")

usethis::use_data(NBA,overwrite = TRUE)