Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- userScoring <- structure(list(QB = structure(list(dataCol = c("passYds", "passAtt",
- "passComp", "passInc", "passTds", "passInt", "pass40", "pass300",
- "pass350", "pass400", "rushYds", "sacks", "rushAtt", "rush40",
- "rushTds", "twoPts", "fumbles"), multiplier = list(0.04, 0, 0,
- 0, 4, -1, 0, 0, 0, 0, 0.1, 0, 0, 0, 6, 2, -2), position = c("QB",
- "QB", "QB", "QB", "QB", "QB", "QB", "QB", "QB", "QB", "QB", "QB",
- "QB", "QB", "QB", "QB", "QB")), .Names = c("dataCol", "multiplier",
- "position"), row.names = c(NA, -17L), class = c("data.table",
- "data.frame"), .internal.selfref = <pointer: 0x0>), RB = structure(list(
- dataCol = c("rushYds", "rushAtt", "rushTds", "rush40", "rush100",
- "rush150", "rush200", "rec", "recYds", "recTds", "rec40",
- "returnYds", "returnTds", "twoPts", "fumbles"), multiplier = list(
- 0.1, 0, 6, 0, 0, 0, 0, 1, 0.1, 6, 0, 0, 6, 2, -2), position = c("RB",
- "RB", "RB", "RB", "RB", "RB", "RB", "RB", "RB", "RB", "RB",
- "RB", "RB", "RB", "RB")), .Names = c("dataCol", "multiplier",
- "position"), row.names = c(NA, -15L), class = c("data.table",
- "data.frame"), .internal.selfref = <pointer: 0x0>), WR = structure(list(
- dataCol = c("rushYds", "rushAtt", "rushTds", "rush40", "rush100",
- "rush150", "rush200", "rec", "recYds", "recTds", "rec40",
- "returnYds", "returnTds", "twoPts", "fumbles"), multiplier = list(
- 0.1, 0, 6, 0, 0, 0, 0, 1, 0.1, 6, 0, 0, 6, 2, -2), position = c("WR",
- "WR", "WR", "WR", "WR", "WR", "WR", "WR", "WR", "WR", "WR",
- "WR", "WR", "WR", "WR")), .Names = c("dataCol", "multiplier",
- "position"), row.names = c(NA, -15L), class = c("data.table",
- "data.frame"), .internal.selfref = <pointer: 0x0>), TE = structure(list(
- dataCol = c("rushYds", "rushAtt", "rushTds", "rush40", "rush100",
- "rush150", "rush200", "rec", "recYds", "recTds", "rec40",
- "returnYds", "returnTds", "twoPts", "fumbles"), multiplier = list(
- 0.1, 0, 6, 0, 0, 0, 0, 1, 0.1, 6, 0, 0, 6, 2, -2), position = c("TE",
- "TE", "TE", "TE", "TE", "TE", "TE", "TE", "TE", "TE", "TE",
- "TE", "TE", "TE", "TE")), .Names = c("dataCol", "multiplier",
- "position"), row.names = c(NA, -15L), class = c("data.table",
- "data.frame"), .internal.selfref = <pointer: 0x0>), K = structure(list(
- dataCol = c("xp", "fg0019", "fg2029", "fg3039", "fg4049",
- "fg50", "fgMiss"), multiplier = list(1, 3, 3, 3, 3, 3, 0),
- position = c("K", "K", "K", "K", "K", "K", "K")), .Names = c("dataCol",
- "multiplier", "position"), row.names = c(NA, -7L), class = c("data.table",
- "data.frame"), .internal.selfref = <pointer: 0x0>), DL = structure(list(
- dataCol = c("idpSolo", "idpAst", "idpSack", "idpInt", "idpFumlForce",
- "idpFumlRec", "idpPD", "idpTd", "idpSafety"), multiplier = list(
- 1, 0.5, 2, 3, 2, 2, 1, 6, 0), position = c("DL", "DL",
- "DL", "DL", "DL", "DL", "DL", "DL", "DL")), .Names = c("dataCol",
- "multiplier", "position"), row.names = c(NA, -9L), class = c("data.table",
- "data.frame"), .internal.selfref = <pointer: 0x0>), LB = structure(list(
- dataCol = c("idpSolo", "idpAst", "idpSack", "idpInt", "idpFumlForce",
- "idpFumlRec", "idpPD", "idpTd", "idpSafety"), multiplier = list(
- 1, 0.5, 2, 3, 2, 2, 1, 6, 0), position = c("LB", "LB",
- "LB", "LB", "LB", "LB", "LB", "LB", "LB")), .Names = c("dataCol",
- "multiplier", "position"), row.names = c(NA, -9L), class = c("data.table",
- "data.frame"), .internal.selfref = <pointer: 0x0>), DB = structure(list(
- dataCol = c("idpSolo", "idpAst", "idpSack", "idpInt", "idpFumlForce",
- "idpFumlRec", "idpPD", "idpTd", "idpSafety"), multiplier = list(
- 1, 0.5, 2, 3, 2, 2, 1, 6, 0), position = c("DB", "DB",
- "DB", "DB", "DB", "DB", "DB", "DB", "DB")), .Names = c("dataCol",
- "multiplier", "position"), row.names = c(NA, -9L), class = c("data.table",
- "data.frame"), .internal.selfref = <pointer: 0x0>)), .Names = c("QB",
- "RB", "WR", "TE", "K", "DL", "LB", "DB"))
- vorBaseline <- structure(c(24, 40, 62, 24, 21, 31, 35, 31),
- .Names = c("QB", "RB", "WR", "TE", "K", "DL", "LB", "DB"))
- vorType <- structure(c("Rank", "Rank", "Rank", "Rank", "Rank", "Rank", "Rank",
- "Rank"), .Names = c("QB", "RB", "WR", "TE", "K", "DL", "LB", "DB"))
- tierDValues <- structure(c(0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5, 0.5),
- .Names = c("QB", "RB", "WR", "TE", "K", "DL", "LB", "DB"))
- scoreThreshold <- structure(c(20, 20, 20, 20, 10, 10, 10, 10, 10),
- .Names = c("QB", "RB", "WR", "TE", "K", "DST", "DL", "LB", "DB"))
- tierGroups <- structure(c(10, 10, 10, 7, 7, 5, 10, 10, 10),
- .Names = c("QB", "RB", "WR", "TE", "K", "DST", "DL", "LB", "DB"))
- myScrapeData <- runScrape(week = 0, season = 2016, analysts = c(-1, 3, 4, 5, 6, 7, 9, 17, 18, 19, 20, 28),
- positions = c("QB", "RB", "WR", "TE", "K", "DL", "LB", "DB"), fbgUser = NULL,
- fbgPwd = NULL)
- myProjections <- getProjections(scrapeData = myScrapeData, avgMethod = "robust",
- leagueScoring = userScoring, vorBaseline, vorType, teams = 10,
- format = "ppr", mflMocks = -1, mflLeagues = -1, adpSources = c("Yahoo"))
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement