###################################################
### chunk number 1: 
###################################################
library(affy)
library(gcrma)
require(AffymetrixDataTestFiles)


###################################################
### chunk number 2: 
###################################################
require(AffymetrixDataTestFiles)


###################################################
### chunk number 3: 
###################################################
library(affyILM)


###################################################
### chunk number 4: 
###################################################
file1 <- system.file("rawData","FusionSDK_HG-Focus","HG-Focus","2.Calvin","HG-Focus-1-121502.CEL",package="AffymetrixDataTestFiles")


###################################################
### chunk number 5: 
###################################################
result <- ilm(file1) 


###################################################
### chunk number 6: 
###################################################
getIntens(result,"AFFX-r2-Ec-bioD-5_at")


###################################################
### chunk number 7: 
###################################################
plotIntens(result,"AFFX-r2-Ec-bioD-5_at","HG-Focus-1-121502.CEL")


###################################################
### chunk number 8: 
###################################################
file2 <- system.file("rawData","FusionSDK_HG-Focus","HG-Focus","2.Calvin","HG-Focus-2-121502.CEL",package="AffymetrixDataTestFiles")
result2files <- ilm(c(file1,file2),400,12000) 


###################################################
### chunk number 9: 
###################################################
getIntens(result2files,"AFFX-r2-Ec-bioD-5_at")


###################################################
### chunk number 10: 
###################################################
getParams(result2files)


###################################################
### chunk number 11: 
###################################################
getConcs(result2files,"AFFX-r2-Ec-bioD-5_at")


###################################################
### chunk number 12: 
###################################################
res_1 <- result["AFFX-r2-Ec-bioD-5_at"]
res_1
res_2 <- result[c("AFFX-r2-Ec-bioD-5_at","207218_at")]
res_2


###################################################
### chunk number 13: 
###################################################
res2_1 <- result2files["AFFX-r2-Ec-bioD-5_at"]
res2_1
res2_2 <- result2files[c("AFFX-r2-Ec-bioD-5_at","207218_at")]
res2_2


###################################################
### chunk number 14: 
###################################################
plotIntens(result2files,"AFFX-r2-Ec-bioD-5_at","HG-Focus-1-121502.CEL")