# 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