inst/wrapup-meetings/2015-2016/official-results/reproduce_official_summary.R

library("dplyr")
library("tidyr")

setwd("/media/evan/data/Reich/ssr-influenza-competition/inst/wrapup-meetings/2015-2016/official-results")

results <- read.csv("KoT_Scores.csv", stringsAsFactors = FALSE)

relevant_results <- results %>%
  filter(location == "us", target == "onset")

sapply(seq_len(nrow(relevant_results)),
  function(i) {
    mean(relevant_results$score[seq_len(i)])
  })
reichlab/ssr-influenza-competition documentation built on May 27, 2019, 4:54 a.m.