# Import the data
data(G519)
# Compute the segmentation for all chromosomes
seg <- vega(G519, c(1:22, "X", "Y"))
# Plot the results for all chromosomes in terms of mean of LRRs
plotSegmentation(G519, seg, c(1:22, "X", "Y"), opt=0)
# Plot the results for all chromosomes in terms of aberration kinds
plotSegmentation(G519, seg, c(1:22, "X", "Y"), opt=1)
Run the code above in your browser using DataLab