###load data
data(matchBoxExpression)
###check whether there are redundant identifiers
sapply(matchBoxExpression,nrow)
###the column name for the identifiers
idCol <- "SYMBOL"
###the column name for the ranking statistics
byCol <- "t"
###use lapply to remove redundancy from all data.frames
###default method is "maxORmin"
newMatchBoxExpression <- lapply(matchBoxExpression, filterRedundant, idCol=idCol, byCol=byCol)
###recheck number of rows
sapply(newMatchBoxExpression, nrow)
Run the code above in your browser using DataLab