# NOT RUN {
# don't test automatically since this writes a file
# }
# NOT RUN {
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)
}
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab