## Load Arabidopsis data
data(arab);
## Specify treatment groups
grp.ids = c(1, 1, 1, 2, 2, 2);
## Prepare an NBP object, adjust the library sizes by thinning the counts.
set.seed(999);
obj = prepare.nbp(arab, grp.ids, print.level=5);
## Estimate the NBP dispersion parameters
obj = estimate.disp(obj, print.level=5);
## Perform exact NB test
grp1 = 1;
grp2 = 2;
obj = exact.nb.test(obj, grp1, grp2, print.level=5);
## Print the NBP object
print.nbp(obj);Run the code above in your browser using DataLab