model <- model.dmc(
p.map = list(A = "1", B = "1", mean_v = "M", sd_v = "M", t0 = "1",
st0 = "1"),
match.map = list(M = list(s1 = 1, s2 = 2)),
factors = list(S = c("s1", "s2")),
constants = c(st0 = 0, sd_v.false=1),
responses = c("r1","r2"),
type = "norm")
p.vector <- c(A=3, B=4, mean_v.true=2, mean_v.false=-1, sd_v.true=0.5, t0=.2)
print_cell_p(p.vector, model)
Run the code above in your browser using DataLab