if (FALSE) {
Sys.setenv(OPENAI_API_KEY = "sk-xxxxxx")
cps <- list_fine_tuning_checkpoints("ftjob-abc123")
for (cp in cps$data) {
cat("Step:", cp$step_number, "Loss:", cp$metrics$train_loss, "\n")
}
}
Run the code above in your browser using DataLab