#set to NA protein count rows which average count is less than 50 percent
fltExperimentSet<-DataFilter$do.apply(examples$msmsExperimentSet,
byRows=TRUE,filterFun=DataFilter$minAvgCountConstraint,filtParams=0.5,verbose=TRUE);
#remove NA series
fltExperimentSet<-DataFilter$removeNASeries(fltExperimentSet,byRows=TRUE,verbose=TRUE);
dim(fltExperimentSet);
Run the code above in your browser using DataLab