## A diffusion decision model
model <- BuildModel(
p_map = list(
a = c("S", "COLOUR"), v = c("NOISE"), z = "1", d = "1", sz = "1", sv = "1",
t0 = "1", st0 = "1", s = "1", precision = "1"
),
match_map = list(M = list(left = "z_key", right = "x_key")),
factors = list(
S = c("left", "right"), COLOUR = c("red", "blue"),
NOISE = c("high", "moderate", "low")
),
constants = c(d = 0, s = 1, st0 = 0, sv = 0, precision = 3),
accumulators = c("z_key", "x_key"),
type = "fastdm"
)
## A LBA model
model <- BuildModel(
p_map = list(
A = "1", B = c("S", "COLOR"), t0 = "1", mean_v = c("NOISE", "M"),
sd_v = "M", st0 = "1"
),
match_map = list(M = list(left = "z_key", right = "x_key")),
factors = list(
S = c("left", "right"),
COLOR = c("red", "blue"),
NOISE = c("high", "moderate", "low")
),
constants = c(st0 = 0, sd_v.false = 1),
accumulators = c("z_key", "x_key"),
type = "lba"
)
Run the code above in your browser using DataLab