if (FALSE) {
# Temperature sweep
config <- llm_config(provider = "openai", model = "gpt-4o-mini",
api_key = Sys.getenv("OPENAI_API_KEY"))
messages <- list(list(role = "user", content = "What is 15 * 23?"))
temperatures <- c(0, 0.3, 0.7, 1.0, 1.5)
setup_llm_parallel(workers = 4, verbose = TRUE)
results <- call_llm_sweep(config, "temperature", temperatures, messages)
reset_llm_parallel(verbose = TRUE)
}
Run the code above in your browser using DataLab