data-raw/nba-fpts.r

In dfs-with-r/nbadata: NBA Data for use in DFS

library(readr)
library(dplyr)

nba_orig <- read_csv("data-raw/2017-18_playerBoxScore.csv")

gte10 <- function(x) x >= 10

nbafpts <- nba_orig %>%
  select(
    game_date = gmDate,
    team = teamAbbr,
    player_fn = playFNm,
    player_ln = playLNm,
    mpg = playMin,
    pos = playPos,
    pts = playPTS,
    reb = playTRB,
    ast = playAST,
    stl = playSTL,
    blk = playBLK,
    tov = playTO,
    made3p = play3PM) %>%
  mutate(
    player_name = paste(player_fn, player_ln),
    num_gte = gte10(pts) + gte10(reb) + gte10(ast) + gte10(stl) + gte10(blk),
    is_dd = num_gte == 2,
    is_td = num_gte == 3,
    fpts_dk = pts + 1.25*reb + 1.5*ast + 2*stl + 2*blk - 0.5*tov + 0.5*made3p + 1.5*is_dd + 3*is_td,
    fpts_fd = pts + 1.20*reb + 1.5*ast + 3*stl + 3*blk - 1.0*tov
  ) %>%
  select(
    game_date, team, player_name, pos, mpg, fpts_dk, fpts_fd
  )

usethis::use_data(nbafpts, overwrite = TRUE)