data("segData")
cghmcr <- cghMCR(segData, gapAllowed = 500, alteredLow = 0.20,
alteredHigh = 0.80, recurrence = 50)
mcrs <- MCR(cghmcr)
mcrs <- mergeMCRProbes(mcrs, segData[["data"]])
Run the code above in your browser using DataLab