qc <- question_category(category = 'Initial test') |>
define_question(
question = 'What are the basic arithmetic operations?',
answer = 'Addition, subtraction, multiplication and division.',
a_1 = 'Addition and subtraction.',
a_2 = 'Addition, subtraction, multiplication, division and square root.'
)
xml <- qc |>
generate_xml()
Run the code above in your browser using DataLab