Last chance! 50% off unlimited learning
Sale ends in
readCelUnits(filenames, units=NULL, stratifyBy=c("nothing", "pmmm", "pm", "mm"), cdf=NULL, ..., addDimnames=FALSE, dropArrayDim=TRUE, transforms=NULL, readMap=NULL, verbose=FALSE)
readCdfCellIndices
.readCel
, e.g. readXY
and readStdvs
.TRUE
, dimension names are added to arrays,
otherwise not. The size of the returned CEL structure in bytes
increases by 30-40% with dimension names.TRUE
and only one array is read, the elements of
the group field do not have an array dimension.logical
, a numeric
, or a Verbose
object specifying how much verbose/debug information is written to
standard output. If a Verbose object, how detailed the information is
is specified by the threshold level of the object. If a numeric, the
value is used to set the threshold of a new Verbose object. If TRUE
,
the threshold is set to -1 (minimal). If FALSE
, no output is written
(and neither is the R.utils package required).
list
with one element for each unit read. The names
corresponds to the names of the units read.
Each unit element is in
turn a list
structure with groups (aka blocks).
Each group contains requested fields, e.g. intensities
,
stdvs
, and pixels
.
If more than one CEL file is read, an extra dimension is added
to each of the fields corresponding, which can be used to subset
by CEL file.Note that neither CEL headers nor information about outliers and
masked cells are returned. To access these, use readCelHeader
()
and readCel
().
readCelHeader
(), readCdfUnits
() and
readCel
() are used.
##############################################################
if (require("AffymetrixDataTestFiles")) { # START #
##############################################################
# Search for some available CEL files
path <- system.file("rawData", package="AffymetrixDataTestFiles")
files <- findFiles(pattern="[.](cel|CEL)$", path=path, recursive=TRUE, firstOnly=FALSE)
files <- grep("FusionSDK_Test3", files, value=TRUE)
files <- grep("Calvin", files, value=TRUE)
# Fake more CEL files if not enough
files <- rep(files, length.out=5)
print(files);
rm(files);
##############################################################
} # STOP #
##############################################################
Run the code above in your browser using DataLab