R_ignore/prior_table_generator.R

In mrc-ide/COVIDCurve: Inferring the Infection Fatality Ratio from COVID-19 Aggregated Death and Seroprevalence Data

# https://stackoverflow.com/questions/12088080/how-to-convert-integer-number-into-binary-vector
# https://stackoverflow.com/questions/54059917/generate-all-length-n-permutations-of-true-false

#......................
# get combination of T/F vectors
#......................
n <- 3
out <- list()
for(i in 0:(2^n-1)){
  out <- append(out, list(binaryLogic::as.binary(i, n = n)))
}
priortab <- out %>%
  do.call("rbind.data.frame", .) %>%
  magrittr::set_colnames(c("rIFR", "rKnots", "rInfxn"))
priortab[nrow(priortab):1, ]