# \donttest{
# Create sample ABC results
abc_results <- data.frame(
a_term = rep("migraine", 3),
b_term = c("serotonin", "dopamine", "noradrenaline"),
c_term = c("sumatriptan", "ergotamine", "propranolol"),
a_b_score = c(0.8, 0.7, 0.6),
b_c_score = c(0.9, 0.8, 0.7),
abc_score = c(0.72, 0.56, 0.42)
)
# Export to temporary file
temp_file <- file.path(tempdir(), "network.html")
export_network(abc_results, temp_file, open = FALSE)
# Clean up
unlink(temp_file)
# }
Run the code above in your browser using DataLab