## Not run:
# data(sample_table_galonska)
# data(TSS_galonska)
# bam_dir <- file.path(system.file("extdata", package="DChIPRep"))
# wce_bam <- "subsampled_0001_pc_SRR2144628_WCE_bowtie2_mapped-only_XS-filt_no-dups.bam"
# mat_wce <- importData_soGGi(bam_paths = file.path(bam_dir, wce_bam),
# TSS = TSS_galonska,
# fragment_lengths = sample_table_galonska$input_fragment_length[1],
# sample_ids = sample_table_galonska$input[1],
# paired = FALSE,
# removeDup=FALSE
# )
# head(mat_wce)
# ## End(Not run)
Run the code above in your browser using DataLab