path <- system.file("rawData", "FusionSDK_HG-Focus", "HG-Focus", "2.Calvin",
package="AffymetrixDataTestFiles")
file1 <- file.path(path,"HG-Focus-1-121502.CEL")
file2 <- file.path(path,"HG-Focus-2-121502.CEL")
result2 <- ilm(c(file1,file2))
## plot output
plotIntens(result2,y="203561_at",z="HG-Focus-2-121502.CEL")
Run the code above in your browser using DataLab