# NOT RUN {
# data
Y <- flanker
# congruent trials
congruent <- subset(Y, 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 = 250,
burnin = 10,
type = "pick_none"
)
fixef(fit)
# }
Run the code above in your browser using DataLab