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