data(RefFreeEWAS)
tmpDesign <- cbind(1, rfEwasExampleCovariate)
tmpBstar <- (rfEwasExampleBetaValues
EstDimRMT(rfEwasExampleBetaValues-tmpBstar
test <- RefFreeEwasModel(
rfEwasExampleBetaValues,
cbind(1,rfEwasExampleCovariate),
4)
testBoot <- BootRefFreeEwasModel(test,10)
summary(testBoot)Run the code above in your browser using DataLab