Displaying 1 result from an estimated 1 matches for "selectedcolumns".
Did you mean:
selected_columns
2007 Dec 20
1
custom subset method / handling columns selection as logic in '...' parameter
...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
(',paste(selectedColumns,collapse=' '),
')\n',sep=&...