powered by
whatcdf(filename, compress = getOption("BioC")$affy$compress.cel)
character
getInfoInAffyFile
read.celfile