# Create validator
validator <- BenchmarkValidator$new()
# Check available benchmarks
print(names(validator$benchmarks))
# Define search strategy
strategy <- list(
terms = c("systematic review", "meta-analysis"),
databases = c("PubMed", "Embase")
)
# Create sample data for validation
sample_data <- data.frame(
id = paste0("art", 1:20),
title = paste("Article", 1:20),
abstract = paste("Abstract", 1:20),
source = "Journal",
date = Sys.Date()
)
# Add custom benchmark
validator$add_benchmark("custom", sample_data, paste0("art", 1:5))
# Validate against custom benchmark
results <- validator$validate_strategy(strategy, "custom")
Run the code above in your browser using DataLab