Skip to content

Instantly share code, notes, and snippets.

@andybega
Created January 11, 2019 12:36
Show Gist options
  • Save andybega/f8cb3648055c1d5f4d93bec167c14d85 to your computer and use it in GitHub Desktop.
Save andybega/f8cb3648055c1d5f4d93bec167c14d85 to your computer and use it in GitHub Desktop.
RCT-A subset machine/human relative performance by question group
library("tidyverse")
arima_qs <- readr::read_csv("/path/to/forecast_rct_a_subset.csv",
col_types = cols(user_id = col_integer())) %>%
mutate(Forecaster = factor(Forecaster))
# Add # of questions to each Data source label
arima_qs <- arima_qs %>%
group_by(Data_source) %>%
mutate(by_Data_source_n_ifps = length(unique(ifp_id))) %>%
ungroup() %>%
mutate(Data_source = paste0(Data_source, " (", by_Data_source_n_ifps, ")"))
mdl3 <- lm(brier ~ -1 + Data_source + Data_source:Forecaster, data = arima_qs)
summary(mdl3)
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment