model <- 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")
pop.prior <- prior.p.dmc(
dists = rep("tnorm", 6),
p1 = c(a=2, v=2.5, z=0.5, sz=0.3, sv=1, t0=0.3),
p2 = c(a=0.5, v=.5, z=0.1, sz=0.1, sv=.3, t0=0.05),
lower = c(0,-5, 0, 0, 0, 0),
upper = c(5, 7, 2, 2, 2, 2))
p.vector <- c(a=1,v=1, z=0.5, sz=0.25, sv=0.2,t0=.15)
d <- simulate(model, nsim=1e2, p.vector=p.vector)
head(d)
## dplyr::tbl_dt(d)
## Source: local data table [200 x 3]
## S R RT
## (fctr) (fctr) (dbl)
## 1 s1 r1 0.6339412
## 2 s1 r2 0.5783174
## 3 s1 r2 0.2005078
## 4 s1 r1 0.2973437
## 5 s1 r2 0.4195281
## 6 s1 r2 0.1946740
## 7 s1 r1 0.2696773
## 8 s1 r1 0.3917966
## 9 s1 r1 0.8721902
## 10 s1 r1 0.2786452
## .. ... ... ...
Run the code above in your browser using DataLab