write_pnml: Write Petri net as PNML
In pm4py: Interface to the 'PM4py' Process Mining Library

Write Petri net as PNML

1	write_pnml(petrinet, file, initial_marking = NULL, final_marking = NULL)

`petrinet`	A bupaR or PM4PY Petri net.
`file`	File name of the PNML file
`initial_marking`	A R vector with the place identifiers of the initial marking or a PM4PY marking. By default the initial marking of the bupaR Petri net will be used if available.
`final_marking`	A R vector with the place identifiers of the final marking or a PM4PY marking.

# don't test automatically since this writes a file

if (pm4py_available()) {
  library(eventdataR)
  data(patients)

  # As Inductive Miner of PM4PY is not life-cycle aware, keep only `complete` events:
  patients_completes <- patients[patients$registration_type == "complete", ]

  net <- discovery_inductive(patients_completes)
  write_pnml(net$petrinet,
             "test.pnml",
             net$initial_marking,
             net$final_marking)
}