#derive sample groups from outcomes
outcomes<-unique(examples$outcomeMap[,2]);
groups<-list();
for(outcome in outcomes)
groups[[outcome]]<-which(examples$outcomeMap[,2]==outcome);
#perform filtering by groups
fltExperimentSet<-DataFilter$do.apply(examples$msmsExperimentSet,
byRows=TRUE,filterFun=DataFilter$minCountGroupConstraint,filtParams=list(1,0.3,groups),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