# NOT RUN {
# congruent trials
congruent <- subset(flanker, cond == 0)
# subset 25 from each group
dat <- congruent[unlist(tapply(1:nrow(congruent),
congruent$id,
head, 25)), ]
# fit model
fit <- vicc(y = dat$rt,
group = dat$id,
iter = 250,
burnin = 10,
type = "customary")
plts <- plot(fit)
# }
Run the code above in your browser using DataLab