#create IdMapDiffCounts object
IDs<-IdMapBase$primaryIDs(examples$msmsExperimentSet);
jointIdMap<-JointIdMap(examples$identDfList,primaryIDs=IDs);
diffs<-jointIdMap$getDiff("NetAffx_F","DAVID_Q",verbose=TRUE);
diffCounts<-IdMapDiffCounts(diffs);
# get compound events
groups<-diffCounts$getCompoundGroups();
names(groups);
groups$excess.both[1:10,];
groups$same.list[1:10,];
Run the code above in your browser using DataLab