model <- BuildModel(
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")),
constants = c(A = 0.75, mean_v.false = 1.5, sd_v = 1, st0 = 0),
accumulators = c("r1", "r2"),
type = "lba")
pnames <- get_pnames(model)
Run the code above in your browser using DataLab