data(fcgr3bMXL)
sS <- resultSegment$segmentationScores
#########Histogram###########################
###View segmentation scores##################
hist(sS[, 1], 100)
############################################
##Number of components#######################
###Make an object of clusteringCNVs class######
objectCluster <- new("clusteringCNVs",
x = sS[, 1], k = 4, EV = TRUE)
set.seed(123)
copynumberGroups <- groupCNVs(Object = objectCluster)
Run the code above in your browser using DataLab