# 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
matchedIDs <- matchAnn2Ann(chr1, bpstart1, bpend1, chr2, bpstart2,
bpend2, method = "distance", maxDist = 10000)
# extract ids for object subsetting
matchedIDsCN <- lapply(matchedIDs, function(Z){ return(Z[, -1, drop=FALSE]) })
# calculate the number of breakpoints
nBreakpoints(matchedIDsCN, pollackCN16)
Run the code above in your browser using DataLab