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_R1.fq")
# Run optimizing function
optimize.tbl <- vs_optimize_truncqual(fastq_input = R1.file,
reverse = R2.file)
# Display plot
print(attr(optimize.tbl, "plot"))
}
Run the code above in your browser using DataLab