Displaying 1 result from an estimated 1 matches for "critname".
Did you mean:
cidname
2007 Dec 20
1
custom subset method / handling columns selection as logic in '...' parameter
...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("\n*** subsetCompounds: Dropped
criteria:",critname, "not in phenoData of object\n")
}else{
if(is.null(listCriteria[critname])) listCriteria[[critname]]<-
unique(phenoData[,critname])...