Btukfyl

library(dplyr)



library(zoo)



library(bupaR)



library(eventdataR)



library(processmapR)



data(traffic_fines)



# make sure the amount attribute is 

propagated forward in each trace



# using zoo::na.locf instead of tidyr::fill 

#since it is much faster



# still the whole pre-processing is still 

#very slow



library(zoo)



traffic_fines_prepared <- traffic_fines %>%



filter_trace_frequency(percentage = 0.8) %>%



group_by_case() %>%



mutate(amount = na.locf(amount, na.rm = F)) 

%>%



ungroup_eventlog()



process_map(traffic_fines_prepared, 

type_nodes = custom(attribute = "amount", 

units = "EUR"))​

library(dplyr)



library(zoo)



library(bupaR)



library(eventdataR)



library(processmapR)



data(traffic_fines)



# make sure the amount attribute is 

propagated forward in each trace



# using zoo::na.locf instead of tidyr::fill 

#since it is much faster



# still the whole pre-processing is still 

#very slow



library(zoo)



traffic_fines_prepared <- traffic_fines %>%



filter_trace_frequency(percentage = 0.8) %>%



group_by_case() %>%



mutate(amount = na.locf(amount, na.rm = F)) 

%>%



ungroup_eventlog()



process_map(traffic_fines_prepared, 

type_nodes = custom(attribute = "amount", 

units = "EUR"))​

library(dplyr)



library(zoo)



library(bupaR)



library(eventdataR)



library(processmapR)



data(traffic_fines)



# make sure the amount attribute is 

propagated forward in each trace



# using zoo::na.locf instead of tidyr::fill 

#since it is much faster



# still the whole pre-processing is still 

#very slow



library(zoo)



traffic_fines_prepared <- traffic_fines %>%



filter_trace_frequency(percentage = 0.8) %>%



group_by_case() %>%



mutate(amount = na.locf(amount, na.rm = F)) 

%>%



ungroup_eventlog()



process_map(traffic_fines_prepared, 

type_nodes = custom(attribute = "amount", 

units = "EUR"))​

library(dplyr)



library(zoo)



library(bupaR)



library(eventdataR)



library(processmapR)



data(traffic_fines)



# make sure the amount attribute is 

propagated forward in each trace



# using zoo::na.locf instead of tidyr::fill 

#since it is much faster



# still the whole pre-processing is still 

#very slow



library(zoo)



traffic_fines_prepared <- traffic_fines %>%



filter_trace_frequency(percentage = 0.8) %>%



group_by_case() %>%



mutate(amount = na.locf(amount, na.rm = F)) 

%>%



ungroup_eventlog()



process_map(traffic_fines_prepared, 

type_nodes = custom(attribute = "amount", 

units = "EUR"))​

Your Answer

StackExchange.ifUsing("editor", function () {
StackExchange.using("externalEditor", function () {
StackExchange.using("snippets", function () {
StackExchange.snippets.init();
});
});
}, "code-snippets");

StackExchange.ready(function() {
var channelOptions = {
tags: "".split(" "),
id: "1"
};
initTagRenderer("".split(" "), "".split(" "), channelOptions);

StackExchange.using("externalEditor", function() {
// Have to fire editor after snippets, if snippets enabled
if (StackExchange.settings.snippets.snippetsEnabled) {
StackExchange.using("snippets", function() {
createEditor();
});
}
else {
createEditor();
}
});

function createEditor() {
StackExchange.prepareEditor({
heartbeatType: 'answer',
autoActivateHeartbeat: false,
convertImagesToLinks: true,
noModals: true,
showLowRepImageUploadWarning: true,
reputationToPostImages: 10,
bindNavPrevention: true,
postfix: "",
imageUploader: {
brandingHtml: "Powered by u003ca class="icon-imgur-white" href="https://imgur.com/"u003eu003c/au003e",
contentPolicyHtml: "User contributions licensed under u003ca href="https://creativecommons.org/licenses/by-sa/3.0/"u003ecc by-sa 3.0 with attribution requiredu003c/au003e u003ca href="https://stackoverflow.com/legal/content-policy"u003e(content policy)u003c/au003e",
allowUrls: true
},
onDemand: true,
discardSelector: ".discard-answer"
,immediatelyShowMarkdownHelp:true
});


}
});