##############################################################
if (require("AffymetrixDataTestFiles")) { # START #
##############################################################
chipType <- "Test3"
cdfFiles <- findCdf(chipType, firstOnly=FALSE)
cdfFiles <- list(
ASCII=grep("ASCII", cdfFiles, value=TRUE),
XDA=grep("XDA", cdfFiles, value=TRUE)
)
outFile <- file.path(tempdir(), sprintf("%s.cdf", chipType))
convertCdf(cdfFiles$ASCII, outFile, verbose=TRUE)
##############################################################
} # STOP #
##############################################################
Run the code above in your browser using DataLab