###################################################
### chunk number 1: 
###################################################
#line 75 "vignettes/DNAcopy/inst/doc/DNAcopy.Rnw"
library(DNAcopy)


###################################################
### chunk number 2: 
###################################################
#line 79 "vignettes/DNAcopy/inst/doc/DNAcopy.Rnw"
data(coriell)


###################################################
### chunk number 3: 
###################################################
#line 86 "vignettes/DNAcopy/inst/doc/DNAcopy.Rnw"
CNA.object <- CNA(cbind(coriell$Coriell.05296),
                  coriell$Chromosome,coriell$Position,
                  data.type="logratio",sampleid="c05296")


###################################################
### chunk number 4: 
###################################################
#line 97 "vignettes/DNAcopy/inst/doc/DNAcopy.Rnw"
smoothed.CNA.object <- smooth.CNA(CNA.object)


###################################################
### chunk number 5: 
###################################################
#line 106 "vignettes/DNAcopy/inst/doc/DNAcopy.Rnw"
segment.smoothed.CNA.object <- segment(smoothed.CNA.object, verbose=1)


###################################################
### chunk number 6: 
###################################################
#line 121 "vignettes/DNAcopy/inst/doc/DNAcopy.Rnw"
plot(segment.smoothed.CNA.object, plot.type="w")


###################################################
### chunk number 7: 
###################################################
#line 130 "vignettes/DNAcopy/inst/doc/DNAcopy.Rnw"
plot(segment.smoothed.CNA.object, plot.type="s") 


###################################################
### chunk number 8: 
###################################################
#line 158 "vignettes/DNAcopy/inst/doc/DNAcopy.Rnw"
plot(segment.smoothed.CNA.object, plot.type="p")


###################################################
### chunk number 9: 
###################################################
#line 170 "vignettes/DNAcopy/inst/doc/DNAcopy.Rnw"
sdundo.CNA.object <- segment(smoothed.CNA.object, 
                             undo.splits="sdundo", 
                             undo.SD=3,verbose=1)


###################################################
### chunk number 10: 
###################################################
#line 178 "vignettes/DNAcopy/inst/doc/DNAcopy.Rnw"
plot(sdundo.CNA.object,plot.type="s")