# load data
data(pollackCN16)
data(pollackGE16)
# extract genomic information from cghCall-object
chr1 <- fData(pollackCN16)[,1]
bpstart1 <- fData(pollackCN16)[,2]
bpend1 <- fData(pollackCN16)[,3]
# extract genomic information from ExpressionSet-object
chr2 <- fData(pollackGE16)[,1]
bpstart2 <- fData(pollackGE16)[,2]
bpend2 <- fData(pollackGE16)[,3]
# match features from both platforms
matchedFeatures <- matchAnn2Ann(chr1, bpstart1, bpend1, chr2,
bpstart2, bpend2, method = "distance", maxDist = 10000)
# expand
matchedFeatures <- splitMatchingAtBreakpoints(matchedFeatures, pollackCN16)
Run the code above in your browser using DataLab