# NOT RUN {
data(RefFreeEWAS)
# }
# NOT RUN {
  tmpDesign <- cbind(1, rfEwasExampleCovariate)
  tmpBstar <- (rfEwasExampleBetaValues <!-- %*% tmpDesign %*% solve(t(tmpDesign)%*%tmpDesign)) -->
  
  EstDimRMT(rfEwasExampleBetaValues-tmpBstar <!-- %*% t(tmpDesign))$dim   -->
# }
# NOT RUN {
test <- RefFreeEwasModel(
  rfEwasExampleBetaValues, 
  cbind(1,rfEwasExampleCovariate),
  4)
testBoot <- BootRefFreeEwasModel(test,10)
summary(testBoot)
# }
Run the code above in your browser using DataLab