# \donttest{
if (interactive()) {
bailian <- create_bailian()
# Standard chat model
model <- bailian$language_model("qwen-plus")
result <- generate_text(model, "Hello")
# Reasoning model (QwQ with chain-of-thought)
model <- bailian$language_model("qwq-32b")
result <- generate_text(model, "Solve: What is 15 * 23?")
print(result$reasoning) # Chain-of-thought reasoning
# Default model (qwen-plus)
model <- bailian$language_model()
}
# }
Run the code above in your browser using DataLab