if (FALSE) {
# Define arguments
R1.file <- file.path(file.path(path.package("Rsearch"), "extdata"),
"small_R1.fq")
R2.file <- file.path(file.path(path.package("Rsearch"), "extdata"),
"small_R2.fq")
# Run function
merging.tbl <- vs_merging_lengths(fastq_input = R1.file,
reverse = R2.file)
# Display plot
merging_stats_plot <- attr(merging.tbl, "plot")
print(merging_stats_plot)
}
Run the code above in your browser using DataLab