data-raw/scoring_rules.R

#Load League Data
David <- list(
  pass = list(
    pass_att = 0, pass_comp = 0, pass_inc = 0, pass_yds = .04, pass_tds = 1,
    pass_int = -2, pass_40_yds = 0,  pass_300_yds = 0, pass_350_yds = 0,
    pass_400_yds = 0, pass_ypg = 0.1
  ),
  rush = list(
    all_pos = TRUE,
    rush_yds = 0.1,  rush_att = 0, rush_40_yds = 0, rush_tds = 6,
    rush_100_yds =0, rush_150_yds = 0, rush_200_yds = 0
  ),
  rec = list(
    all_pos = TRUE,
    rec = 1, rec_yds = 0.1, rec_tds = 6, rec_40_yds = 0, rec_100_yds = 0,
    rec_150_yds = 0, rec_200_yds = 0
  ),
  misc = list(
    all_pos = TRUE,
    fumbles_lost = -2, fumbles_total = 0,
    sacks = 0, two_pts = 2
  ),
  kick = list(
    xp = 1.0, fg_0019 = 3.0,  fg_2029 = 3.0, fg_3039 = 4.0, fg_4049 = 5.0,
    fg_50 = 6.0,  fg_miss = -1
  ),
  ret = list(
    all_pos = TRUE,
    return_tds = 6, return_yds = 0
  ),
  dst = list(
    dst_fum_rec = 1,  dst_int = 2, dst_safety = 2, dst_sacks = 1, dst_td = 6,
    dst_blk = 2, dst_ret_yds = 0, dst_pts_allowed = 0
  ),
  pts_bracket = list(
    list(threshold = 0, points = 10),
    list(threshold = 6, points = 7),
    list(threshold = 13, points = 4),
    list(threshold = 20, points = 2),
    list(threshold = 34, points = -3),
    list(threshold = 45, points = -5),
    list(threshold = 99, points = -7)
  )
)

scoring_rules <- append(scoring_rules,list(David))
names(scoring_rules)[9] <- "David"

#scoring_rules[["FTA"]][["pass"]][["pass_ypg"]] = 0.0

setwd("C:/Users/morrr/Documents/AnalyticsFootball")
usethis::use_data(scoring_rules, overwrite = T)
RandalMorris/AnalyticsFootball documentation built on Dec. 18, 2021, 9:52 a.m.