if (FALSE) {
# Define arguments
fastq_input <- file.path(file.path(path.package("Rsearch"), "extdata"),
"small_R1.fq")
reverse <- file.path(file.path(path.package("Rsearch"), "extdata"),
"small_R2.fq")
output_format <- "fastq"
# Merge sequences and return a FASTQ tibble
merge_seqs <- vs_fastq_mergepairs(fastq_input = fastq_input,
reverse = reverse,
output_format = output_format)
# Extract merging statistics
statistics <- attr(merge_seqs, "statistics")
# Merge sequences and write sequences to a FASTQ file
vs_fastq_mergepairs(fastq_input = fastq_input,
reverse = reverse,
output_format = output_format,
fastqout = "merged_sequences.fq")
}
Run the code above in your browser using DataLab