search for: listcriteria

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("\...