#Lymphoma data
data(lymphoma)
#Run multipcf
segments <- multipcf(lymphoma,gamma=12)
#Select the 10 segments with the highest variance:
sel.seg1 <- selectSegments(segments)
#Select the segments where the variance is below 0.001
sel.seg2 <- selectSegments(segments,thres=0.001,large=FALSE)
#Select the 5 longest segments:
sel.seg3 <- selectSegments(segments,what="length",nseg=5)
#Select the segments where 20 % of the samples have segment value of 0.2 or more:
sel.seg4 <- selectSegments(segments,what="aberration",thres=0.2,p=0.2)
#Select the 20 segments with the largest median:
sel.seg5 <- selectSegments(segments,what="aberration",nseg=20,p=0.5)
Run the code above in your browser using DataLab