# NOT RUN {
require(CpGFilter)
# 10 samples replicated twice, 5 samples replicated four times.
rep.design <- c(1:100, 101:110, 101:110, 111:115, 111:115, 111:115, 111:115)
rho <- CpGFilterICC(matrix(rnorm(140*1000), 1000, 140), rep.design, logit=FALSE)
# }
Run the code above in your browser using DataLab