if (FALSE) {
# Compare different models
config1 <- llm_config(provider = "openai", model = "gpt-4o-mini",
api_key = Sys.getenv("OPENAI_API_KEY"))
config2 <- llm_config(provider = "openai", model = "gpt-3.5-turbo",
api_key = Sys.getenv("OPENAI_API_KEY"))
configs_list <- list(config1, config2)
messages <- list(list(role = "user", content = "Explain quantum computing"))
setup_llm_parallel(workers = 4, verbose = TRUE)
results <- call_llm_compare(configs_list, messages)
reset_llm_parallel(verbose = TRUE)
}
Run the code above in your browser using DataLab