# NOT RUN {
## Compute vpc for each feature under NBMM. This will take a while on the
## entire dataset. For the purpose of illustration, here we only fit on
## the first 2 features.
result.nb <- fit.NB(simData[1:2, ], strains)
# }
Run the code above in your browser using DataLab