Converts the object to a Petrinet

as.petrinet(obj)

Arguments

obj

The event log to be used. An object of class

Examples

data(L_heur_1)
cn <- causal_net(L_heur_1, threshold = .8)
pn <- as.petrinet(cn)
petrinetR::render_PN(pn)