ffanalytics

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"))