m1 <- model.dmc(
p.map = list(a="1", v="1", z="1", d="1", sz="1", sv="1", t0="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")
pVec <- c(a=1, v=1, z=0.5, sz=0.25, sv=0.2,t0=.15)
## Set up a model-data instance
dat <- simulate(m1, nsim=1e2, p.vector=pVec)
mdi <- data.model.dmc(dat, m1)
summed_log_likelihood(pVec, mdi)
## [1] 0.3796048
Run the code above in your browser using DataLab