# Randomly generate data for a 3 group problem with 100 CpG sites and 4 arrays in each group.
library(limma)
y<-matrix(rnorm(1200),ncol=12)
group<-factor(rep(c(1,2,3),each=4))
design<-model.matrix(~0+group)
colnames(design)<-c("grp1","grp2","grp3")
# Fit linear model for differential variability
vfit<-varFit(y,design)
# Specify contrasts
contr<-makeContrasts(grp2-grp1,grp3-grp1,grp3-grp2,levels=colnames(design))
# Compute contrasts from fit object
vfit.contr<-contrasts.varFit(vfit,contrasts=contr)
summary(decideTests(vfit.contr))
# Look at top table of results for first contrast
topVar(vfit.contr,coef=1)
Run the code above in your browser using DataLab