data(fcgr3bMXL)
##Obtain all information of CNVs
allGroups <- copynumberGroups$allGroups
###Obtain names of duplicate samples
duplicatedSamples <- rownames(allGroups[allGroups[, 2] > 2,])
###Plot the first duplicate samples
par(mfrow = c(3, 2))
for (ii in duplicatedSamples[1:6])
plotCNVrd2(Object = objectCNVrd2,
segmentObject = resultSegment,
sampleName = ii)
Run the code above in your browser using DataLab