#Call the principal_lister function
input_tam <- 100
file_db <- system.file("extdata","example_database.csv", package = "bibliorefer")
separator <- ";"
input_date <- example_database(file_db, separator)
principal_refer <- principal_lister(input_date,input_tam)
#Call the crit_quant function
quant_validation <- crit_quant(principal_refer)
quant_validation[[1]]
quant_validation[[2]]
Run the code above in your browser using DataLab