if(require('minfiData')) {
path <- system.file("extdata/5723646052", package="minfiData")
methylumiset.raw <- getMethyLumiSet(path = path)
mixes.raw.meth.I.red <- getSNparams(methylumiset.raw, 'M', 'I-red')
mixes.raw.meth.I.green <- getSNparams(methylumiset.raw, 'M', 'I-green')
mixes.raw.meth.II <- getSNparams(methylumiset.raw, 'M', 'II')
mixes.raw.unmeth.I.red <- getSNparams(methylumiset.raw, 'U', 'I-red')
mixes.raw.unmeth.I.green <- getSNparams(methylumiset.raw, 'U', 'I-green')
mixes.raw.unmeth.II <- getSNparams(methylumiset.raw, 'U', 'II')
mixes.I.red <- list(mixes.raw.meth.I.red, mixes.raw.unmeth.I.red)
mixes.I.green <- list(mixes.raw.meth.I.green, mixes.raw.unmeth.I.green)
mixes.II <- list(mixes.raw.meth.II, mixes.raw.unmeth.II)
panelPlots(methylumiset.raw, mixes.I.red, mixes.I.green, mixes.II)
}Run the code above in your browser using DataLab