data(epgs)
## apply zero-infation model for the paired design
model <- fecr_stan(epgs$before, epgs$after, rawCounts = FALSE,
indEfficacy = FALSE, preCF = 10,
paired = TRUE, zeroInflation = TRUE)
samples <- stan2mcmc(model$stan.samples)
summary(samples)
plot(samples)
Run the code above in your browser using DataLab