# \donttest{
## load sample data
data(epgs)
## apply individual efficacy model to the data vectors
model <- fecr_stan(epgs$before, epgs$after, rawCounts = FALSE, preCF = 10,
paired = TRUE, indEfficacy = TRUE)
fecr_probs(model$stan.samples)
# }
Run the code above in your browser using DataLab