require(NGScopy)
require(NGScopyData)
## Create an instance of `NGScopy' class
obj <- NGScopy$new(
outFpre="ngscopy-case1", # specified directory for output
inFpathN=tps_N8.chr6()$bamFpath, # normal sample: tps_90.chr6.sort.bam
inFpathT=tps_90.chr6()$bamFpath, # tumor sample: tps_N8.chr6.sort.bam
libsizeN=5777087, # the library size of the normal sample
libsizeT=4624267, # the library size of the tumor sample
mindepth=20, # the minimal depth of reads per window
minsize=20000, # the minimal size of a window
pcThreads=1 # the number of processors for computing
)
obj$show() # print the instance
## Not run:
#
# ## Compute the copy number and save it
# ## A data.frame will be saved to file `ngscopy_cn.txt' in the output directory
# obj$write_cn()
#
# ## Compute the segmentation and save it
# ## A data.frame will be saved to file `ngscopy_segm.txt' in the output directory
# obj$write_segm()
#
# ## Visualization
# ## A figure will be saved to file `ngscopy_out.pdf' in the output directory
# obj$plot_out()
# ## End(Not run)
Run the code above in your browser using DataLab