# Get a DOM
dom <- rsbml_read(system.file("sbml", "GlycolysisLayout.xml", package = "rsbml"))
# Get the species ID's
sapply(species(model(dom)), id)
# Convert DOM back to a low-level document for checking
doc <- rsbml_doc(dom)
rsbml_check(doc)
# Write a DOM to a file
## Not run: rsbml_write(dom, "my.xml")
Run the code above in your browser using DataLab