## Make a Bimap that contains all the probes
require("hgu95av2.db")
mapWithMultiProbes <- toggleProbes(hgu95av2ENTREZID, "all")
count.mappedLkeys(hgu95av2ENTREZID)
count.mappedLkeys(mapWithMultiProbes)
## Check that it has both multiply and singly matching probes:
hasMultiProbes(mapWithMultiProbes)
hasSingleProbes(mapWithMultiProbes)
## Make it have Multi probes ONLY:
OnlyMultiProbes = toggleProbes(mapWithMultiProbes, "multiple")
hasMultiProbes(OnlyMultiProbes)
hasSingleProbes(OnlyMultiProbes)
## Convert back to a default map with only single probes exposed
OnlySingleProbes = toggleProbes(OnlyMultiProbes, "single")
hasMultiProbes(OnlySingleProbes)
hasSingleProbes(OnlySingleProbes)
## List the filters on the inparanoid mapping
# library(hom.Dm.inp.db)
# getBimapFilters(hom.Dm.inpANOGA)
## Here is how you can make a mapping with a
##different filter than the default:
# f80 = setInpBimapFilter(hom.Dm.inpANOGA, "80%")
# dim(hom.Dm.inpANOGA)
# dim(f80)
Run the code above in your browser using DataLab