# 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)
# Get absolute Levene Residuals
resid <- getLeveneResiduals(y,design)
# Plot the first CpG
barplot(resid$data[1,],col=rep(c(2,4),each=5),ylab="Absolute Levene Residuals",names=group)
Run the code above in your browser using DataLab