### R代码来自Vignette Source'dnacopy.rnw'############################################################ ###代码块编号1：dnacopy.rnw：74-75 ######################################################################################################################＃数据（Coriell）####################################################### ###代码块编号3：dnacopy.rnw：85-88 #############################################################“ logratio”，sampleid =“ C05296”）####################################################### ###代码块编号4：dnacopy.rnw：96-97 #############################################################################################：dnacopy.rnw：105-106 ########################d.cna.Object < - segment（平滑。######################## ###代码块数字6：dnacopy.rnw：120-121 #########################################################“ W”）################################# ###代码块编号7：dnacopy.rnw：129-130 ############################################################# plot(segment.smoothed.CNA.object, plot.type="s") ################################################### ### code chunk number 8: DNAcopy.Rnw:157-158 ################################################### plot(segment.smoothed.CNA.object, plot.type="p") ################################################### ### code chunk number 9: DNAcopy.Rnw:169-172 ################################################### sdundo.CNA.object <- segment(smoothed.CNA.object, undo.splits="sdundo", undo.SD=3,verbose=1) ################################################### ### code chunk number 10: DNAcopy.Rnw:177-178 ################################################### plot(sdundo.CNA.object,plot.type="s")