Displaying 1 result from an estimated 1 matches for "criteriavalu".
Did you mean:
criteriavalues
2007 Dec 20
1
custom subset method / handling columns selection as logic in '...' parameter
...eria:",critname, "not in phenoData of object\n")
}else{
if(is.null(listCriteria[critname])) listCriteria[[critname]]<-
unique(phenoData[,critname])
retainedCriteria[[critname]] <<- phenoData[,critname] %in%
listCriteria[critname]
}
})
criteriaValues <- do.call("cbind",retainedCriteria)
selectedColumns <- rownames(phenoData)[apply(criteriaValues,1,logic)]
## cbind(phenoData,criteriaValues)
out <- x[subset,selectedColumns]
if (verbose) cat('\n',length(selectedColumns),' columns selected
(...