if (require("AffymetrixDataTestFiles")) {
path <- system.file("rawData", package="AffymetrixDataTestFiles")
files <- findFiles(pattern="[.](chp|CHP)$", path=path,
recursive=TRUE, firstOnly=FALSE)
s1 = readChp(files[1])
length(s1)
names(s1)
names(s1[[7]])
}
Run the code above in your browser using DataLab