# NOT RUN {
data(RefFreeEWAS)
test <- RefFreeEwasModel(
rfEwasExampleBetaValues,
cbind(1,rfEwasExampleCovariate),
4)
testBoot <- BootRefFreeEwasModel(test,10)
summary(testBoot)
omnibusBoot(test$Beta[,2], testBoot[,2,"B",],-diff(dim(test$X)))
omnibusBoot(test$Bstar[,2], testBoot[,2,"B*",],-diff(dim(test$X)))
# }
Run the code above in your browser using DataLab