# NOT RUN {
data(cuperdec_taxatable_ex)
data(cuperdec_database_ex)
taxa_table <- load_taxa_table(cuperdec_taxatable_ex)
iso_database <- load_database(cuperdec_database_ex, target = "oral")
curve_results <- calculate_curve(taxa_table, iso_database)
simple_filter(curve_results, percent_threshold = 50)
# }
Run the code above in your browser using DataLab