#Call the produc_cientific function
file_db <- system.file("extdata","example_database.csv", package = "bibliorefer")
separator <- ";"
input_date <- example_database(file_db, separator)
prod_ct <- produc_cientific(input_date)
prod_ct
Run the code above in your browser using DataLab