Randomise experiment factory participants by token

expfactory_randomise.r

# $ ssh $HOST 'docker exec container expfactory users --list' | grep active | cut -f 2 | perl -lne's/(.*)\[active\]/$1/g; print' > docker/tokens

library(tidyverse)

tokens <- read.table('data/tokens') %>%
  rename(token = V1)
N=nrow(tokens)
set.seed(54321)
participants <- expand.grid(k=1:N, condition=c("experimental","control")) %>%
  mutate(r = runif(n())) %>%
  arrange(r) %>%
  head(N)
participants$p <- seq.int(nrow(participants))
participants <- cbind(participants, tokens) %>%
  select(p,condition,token)
participants %>%
  group_by(condition) %>%
  summarise(count = length(condition))
write.csv(participants, file='data/participants.csv', row.names = FALSE)