#Move your CEL files into your working directory and
#make sure that the corresponding CDF library for
#your chips is available on your system.
#the current working directory is shown by getwd()
#and may be set using setwd()
library(affy) # Loads the affy package.
mydata <- ReadAffy() # Reads all *.CEL (*.cel) files
# or
mydata <- ReadAffy(widget=TRUE) # Opens file browser to
select specific CEL files.