# 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 <- vicc(
y = dat$rt,
group = dat$id,
iter = 500,
burnin = 10,
type = "pick_group"
)
pips <- pip(fit)
plot(pips)
# }
Run the code above in your browser using DataLab