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)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.