# 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")
calculate_curve(taxa_table, iso_database)
# }
Run the code above in your browser using DataLab