if (FALSE) {
# Define arguments
fasta_input <- file.path(file.path(path.package("Rsearch"), "extdata"),
"small_R1.fq")
nonchimeras <- "nonchimeras.fa"
chimeras <- "chimeras.fa"
# Detect chimeras with default parameters and return FASTA files
vs_uchime_denovo(fasta_input = fasta_input,
nonchimeras = nonchimeras,
chimeras = chimeras)
# Detect chimeras with default parameters and return a FASTA tibble
nonchimeras.tbl <- vs_uchime_denovo(fasta_input = fasta_input,
nonchimeras = NULL,
chimeras = NULL)
# Get chimeras tibble
chimeras.tbl <- attr(nonchimeras.tbl, "chimeras")
# Get statistics tibble
statistics.tbl <- attr(nonchimeras.tbl, "statistics")
}
Run the code above in your browser using DataLab