r-insect

Informatic Sequence Classification Trees.

Informatic sequence classification trees

insect is an R package for taxonomic identification of amplicon sequence variants generated by DNA meta-barcoding analysis. The learning and classification algorithms implemented in the package are based on full probabilistic models (profile hidden Markov models) and offer highly accurate taxon IDs, albeit at a relatively high computational cost.

The package also contains functions for searching and downloading reference sequences and taxonomic information from NCBI, a "virtual PCR" tool for sequence trimming, a function for purging erroneously labeled reference sequences, and several other tools.

insect is designed to be used in conjunction with the dada2 pipeline or other de-noising tools that produce a list of amplicon sequence variants (ASVs). While unfiltered sequences can also be processed with high accuracy, the insect classification algorithm is relatively slow, since it uses a computationally intensive dynamic programming algorithm to find the likelihood values of each sequence given the models at each node of the classification tree. Hence filtered input datasets are generally be much faster to process.

Installation

To download insect from CRAN and load the package, run

install.packages("insect")
library(insect)

To download the latest development version from GitHub, run:

devtools::install_github("shaunpwilkinson/insect", build_vignettes = TRUE) 
library(insect)

Classifying sequences

Classifiers for some of the more commonly used metabarcoding primer sets are available here:

To classify a sequence or set of sequences, first read them into R as a "DNAbin" list object. FASTA files can be parsed as follows:

x <- readFASTA("<path-to-file>.fasta")

Alternatively users may wish to assign taxon IDs to the output from the DADA2 pipeline, in which case the column names of the ouput table can be parsed as in the following example:

data("samoa") 
x <- char2dna(colnames(samoa))
## name the sequences sequentially
names(x) <- paste0("ASV", seq_along(x))

The next step is to download and read in the classifier. It is important to ensure that the classifier was trained using the same primer set as that used to generate the query data. In this example the data were generated from autonomous reef monitoring structures in American Samoa (ARMS) using the COI metabarcoding primers mlCOIintF and jgHCO2198 (Leray et al 2013), and de-noised, filtered and merged following the DADA2 tutorial.

The COI classifier was created using the MIDORI UNIQUE 20180221 trainingset, supplemented with around 14,000 non-metazoan COI sequences downloaded from GenBank.

The 140 MB classifier can be downloaded to the current working directory and read into R as follows:

download.file("https://www.dropbox.com/s/dvnrhnfmo727774/classifier.rds?dl=1", 
              destfile = "classifier.rds", mode = "wb")
classifier <- readRDS("classifier.rds")

There is an option to perform a nearest-neighbor search prior to the computationally-expensive recursive model test procedure, which can save time and improve resolution ('recall') at lower taxonomic ranks. Note that this can be a double-edged sword; if multiple species share an identical or near-identical sequence, and the true taxon of the query sequence is missing from the trainingset, the algorithm may over-classify the sequence and return a congeneric taxon. To perform a nearest-neighbor search with a similarity threshold of 0.99 (meaning any sequence in the trainingset with a similarity greater than or equal to 99% is considered a match), set ping = 0.99. To stay on the safe side, we will set ping = 1 (i.e. only sequences with 100% identity are considered matches).

out <- classify(x, classifier, threshold = 0.8)

Further reading

A more detailed overview of the package and its functions can be found here or by running

vignette("insect-vignette")

Issues

If you experience a problem using this software please feel free to raise it as an issue on GitHub.

Acknowledgements

This software was developed at Victoria University of Wellington with funding from a Rutherford Foundation Postdoctoral Research Fellowship award from the Royal Society of New Zealand. Unpublished COI data care of Molly Timmers (NOAA).