Template for deploying draft predictions for Yhat Fantasy Football Challenge using R

deploy.R

library(yhatr)

model.require <- function() {
  library(plyr)
}

model.transform <- function(df) {
  df
}

model.predict <- function(df) {
  data.frame(
    "draft_sequence"=draft.sequence
    )  
}

yhat.config <- c(
  username="drew",
  apikey="my.api.key"
  )

# image is too big :(
ls()
if ("draft.join" %in% ls()) {
  rm("draft.join")
}
if ("training.sub" %in% ls()) {
  rm("training.sub")
}
yhat.deploy("fantasyFootballDraft")