Nothing
context("Conformance")
library(bupaR)
test_that("Alignment", {
skip_if_no_pm4py()
data("patients")
net <- discovery_inductive(patients)
res <- lapply(1:2, function(x) {
a <- conformance_alignment(patients,
net$petrinet,
net$initial_marking,
net$final_marking,
convert = TRUE)
numTraces <- n_cases(patients)
numAlignments <- length(unique(a$case_id))
expect_equal(numAlignments, numTraces)
return(a)
})
expect_length(res, 2)
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.