Displaying 1 result from an estimated 1 matches for "listcriteria".
2007 Dec 20
1
custom subset method / handling columns selection as logic in '...' parameter
...s
subset.ExpressionSet <- function(x,subset=NULL,verbose=TRUE,...){
# subset is used to subset on rows
# ... is used to make multiple conditions on columns based on pData
# list of conditions is handled in ...
stopifnot(is(x,"ExpressionSet"))
phenoData <- pData(x)
listCriteria <- list(...)
if (is.null(subset)) subset <- rep(TRUE,nrow(exprs(x)))
subset <- subset & !is.na(subset)
retainedCriteria <- list()
tmp <- sapply(names(listCriteria), function(critname) {
if(!critname %in% colnames(phenoData)){
if (verbose) cat("\...