# Create sample data
results_db1 <- c("art1", "art2", "art3", "art4")
results_db2 <- c("art2", "art3", "art5", "art6")
results_by_db <- list("Database1" = results_db1, "Database2" = results_db2)
gold_standard <- c("art1", "art3", "art5", "art7", "art8")
coverage <- calc_coverage(results_by_db, gold_standard)
print(coverage$total_coverage)
Run the code above in your browser using DataLab