#set to NA protein count rows which contain less than 50 percent of counts >=2
fltExperimentSet<-DataFilter$do.apply(examples$msmsExperimentSet,
byRows=TRUE,filterFun=DataFilter$minAvgCountConstraint,filtParams=0.5,verbose=TRUE);
#print the number of rows set to NA
sum(is.na(rowSums(fltExperimentSet[,-1])))
Run the code above in your browser using DataLab