jointIdMap<-JointIdMap(examples$identDfList);
pairs<-as.UniquePairs(jointIdMap$getUnionIdMap());
jointPairs<-JointUniquePairs(pairs,jointIdMap$getIdMapList());
jointPairs$getMapNames();
jointPairsSubset<-jointPairs$subsetGroups(c("NetAffx_Q","DAVID_Q","EnSembl_F"));
jointPairsSubset$getMapNames();
Run the code above in your browser using DataLab