require("CNTools")
data("sampleData")
cghmcr <- cghMCR(sampleData[sampleData[, "ID"] %in%
sample(unique(sampleData[, "ID"]), 20), ], gapAllowed = 500,
alteredLow = 0.20, alteredHigh = 0.80, recurrence = 50)
Run the code above in your browser using DataLab