p_map <- list(A = "1", B = "1", mean_v = "M", sd_v = "1", st0 = "1",
t0 = "1")
match_map <- list(M = list(s1 = "r1", s2 = "r2"))
factors <- list(S = c("s1", "s2"))
accumulators <- c("r1", "r2")
result <- build_model_boolean_r(p_map, factors, accumulators, match_map)
Run the code above in your browser using DataLab