# Randomly generate data for a 2 group problem with 100 CpG sites and 5 arrays in each group.
y<-matrix(rnorm(1000),ncol=10)
group<-factor(rep(c(1,2),each=5))
design<-model.matrix(~group)
# Fit linear model for differential variability
vfit<-varFit(y,design)
# Look at top table of results
topVar(vfit,coef=2)
Run the code above in your browser using DataLab