more-data.r

library(tidyverse)

# example structure of the data
# some of the columns are:
# Months (1 2 3, 13, 14 15), Arm (control, intervention)
# Before_After (beofre, after), Village ( 1:8), household (1:8), weight (number?)

# this is painful...
tibble(
  month = c(1, 1, 2, 2, 3, 3, 13, 13,  14, 14, 15, 15),
  arm = c(rep("control", 2)
)

data_template <- expand_grid(
  month = c(1:3, 13:15),
  arm = c("control", "intervention"),
  before_after = c("before", "after"),
  village = 1:8,
  household = 1:8,
  weight = NA
)



data_template