# \donttest{
if (interactive()) {
coder <- create_coder_agent()
session <- create_shared_session(model = "openai:gpt-4o")
result <- coder$run(
"Create a data frame with 3 rows and calculate the mean",
session = session,
model = "openai:gpt-4o"
)
}
# }
Run the code above in your browser using DataLab