# NOT RUN {
data(RefFreeEWAS)
# }
# NOT RUN {
tmpDesign <- cbind(1, rfEwasExampleCovariate)
tmpBstar <- rfEwasExampleBetaValues <!-- %*% tmpDesign %*% solve(t(tmpDesign)%*%tmpDesign) -->
EstDimIC(rfEwasExampleBetaValues-tmpBstar <!-- %*% t(tmpDesign)) -->
# }
Run the code above in your browser using DataLab