Write Petri net as PNML
Write Petri net as PNML
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)
}Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.