data(RRBS)
## model fitting
DMLfit = DMLfit.multiFactor(RRBS, design, ~case+cell+case:cell)
## hypothesis testing
DMLtest.cell = DMLtest.multiFactor(DMLfit, coef=3)
## look at distributions of test statistics and p-values
par(mfrow=c(1,2))
hist(DMLtest.cell$stat, 100, main="test statistics")
hist(DMLtest.cell$pvals, 100, main="P values")
Run the code above in your browser using DataLab