path = SolexaPath(system.file("extdata", package="ShortRead"))
rolenv = SetModel(idsep="_")
int = readIntensities(path,pattern="s_1_0001",withVariability=FALSE)
par(mfrow=c(2,2))
for (c in c('A','C','G','T'))
TileImage(int=int,cycle=1,tile=readIntensityInfo(int)$tile[1],channel=c,ncell=5)
int2 = TileNormalize(rolenv,int=int,cycles=1)
x11()
par(mfrow=c(2,2))
for (c in c('A','C','G','T'))
TileImage(int=int2,cycle=1,tile=readIntensityInfo(int)$tile[1],channel=c,ncell=5)
Run the code above in your browser using DataLab