Write Petri net as PNML

Source: R/io.R

Write Petri net as PNML

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

Arguments

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.

Examples

# don't test automatically since this writes a file
# \donttest{
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)
}
# }