diff --git a/code/03_TaxonomicBackbone.Rmd b/code/03_TaxonomicBackbone.Rmd index fd8cf88b69ab1c219240b10e1217c3d1af6eb37c..229a3f1211123047d1e55154011ddd591471caac 100644 --- a/code/03_TaxonomicBackbone.Rmd +++ b/code/03_TaxonomicBackbone.Rmd @@ -838,11 +838,13 @@ tpl.ncbi <- read_csv("../_derived/TPL/tpl_results_iter4.csv", tpl.ncbi.certain <- tpl.ncbi %>% filter(Plant.Name.Index==T) nrow(tpl.ncbi.certain) +write_csv(tpl.ncbi.certain, path = "../_derived/TPL/tpl.ncbi.certain.csv") tpl.ncbi.uncertain <- tpl.ncbi %>% filter(Plant.Name.Index==F) %>% dplyr::select(Taxon) nrow(tpl.ncbi.uncertain) +write_csv(tpl.ncbi.uncertain, path = "../_derived/TPL/tpl.ncbi.uncertain.csv") save(tpl.ncbi.certain, tpl.ncbi.uncertain, file="../_derived/TNRS_submit/tnrs.iter4.RData") ```