model <- BuildModel(
p.map = list(A = "1", B = "1", t0 = "1", mean_v = "M", sd_v = "1",
st0 = "1"),
match.map = list(M = list(s1 = 1, s2 = 2)),
factors = list(S = c("s1", "s2")),
constants = c(st0 = 0, sd_v = 1),
responses = c("r1", "r2"),
type = "norm")
p.vector <- c(A = .25, B = .35, t0 = .2, mean_v.true = 1,
mean_v.false = .25)
dat <- simulate(model, 1e3, ps = p.vector)
dmi <- BuildDMI(dat, model)
den <- likelihood(p.vector, dmi)
model <- BuildModel(
p.map = list(a = "1", v = "1", z = "1", d = "1", t0 = "1", sv = "1",
sz = "1", st0 = "1"),
constants = c(st0 = 0, d = 0),
match.map = list(M = list(s1 = "r1", s2 = "r2")),
factors = list(S = c("s1", "s2")),
responses = c("r1", "r2"),
type = "rd")
p.vector <- c(a = 1, v = 1, z = 0.5, sz = 0.25, sv = 0.2, t0 = .15)
dat <- simulate(model, 1e2, ps = p.vector)
dmi <- BuildDMI(dat, model)
den <- likelihood (p.vector, dmi)
Run the code above in your browser using DataLab