data-raw/NBA-dataset.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")

tms <- NBA$Team
ops <- NBA$Opp


NBA$Team <- ifelse(stringr::str_count(tms,"\\w+")==2,stringr::word(tms,2),stringr::word(tms,3))
NBA$Opp <- ifelse(stringr::str_count(ops,"\\w+")==2,stringr::word(ops,2),stringr::word(ops,3))

NBA <- transform(NBA,sprWL=ifelse((NBA$Team.Pts+NBA$SPline)>NBA$Opp.Pts,"1","0"))

usethis::use_data(NBA,overwrite = TRUE)