# NOT RUN {
## load the sample data as a vector
data(epgs)
## apply zero-infation model to the data vector
model<-fecr_stan(epgs[,1],epgs[,2],rawCounts=FALSE,preCF=10,paired=TRUE,zeroInflation=TRUE)
fecr_probability(model$stan.samples)
# }
Run the code above in your browser using DataLab