data(testData)
normaldata<-pre.process("rma",testData)
##At least one chip is greater than 4
filtered.1<-Filter(normaldata, numChip=1, bg=4)
##At least one chip is greater than 4 and range >0.5
filtered.2<-Filter(normaldata, numChip=1, bg=4, range=0.5)
##range >0.5 and IQR > 20percentile
filtered.3<-Filter(normaldata, range=0.5, iqrPct=0.2)
Run the code above in your browser using DataLab