## ----setup, include=FALSE-----------------------------------------------------
knitr::opts_chunk$set(collapse = TRUE, comment = "#>")

## -----------------------------------------------------------------------------
library(AutoGenAI)
ex <- autogenai_example()
fit <- optimize_ai(
  ex$task,
  ex$data,
  ex$providers,
  ex$prompts,
  temperatures = 0,
  strategies = "single"
)
fit

## -----------------------------------------------------------------------------
pareto_ai(fit)

## -----------------------------------------------------------------------------
st <- stress_test(
  ex$task,
  ex$data,
  ex$providers[[1]],
  ex$prompts[[1]]
)
st
robustness_score(st)