#Load lymphoma data
data(lymphoma)
#Run pcf to obtain estimated copy number values
seg <- pcf(data=lymphoma,gamma=12)
#Plot aberrations for the entire genome
plotAberration(segments=seg,thres.gain=0.15)
#Plot aberrations for the first 4 chromosomes:
plotAberration(segments=seg,thres.gain=0.1,chrom=c(1:4),layout=c(2,2))
Run the code above in your browser using DataLab