mtt_haum/code/R_helpers.R

46 lines
1.3 KiB
R
Raw Normal View History

######################################################################
time_minmax_ms <- function(subdata) {
subdata$min_time <- min(subdata$timeMs.start)
if (all(is.na(subdata$timeMs.stop))) {
subdata$max_time <- NA
} else {
subdata$max_time <- max(subdata$timeMs.stop, na.rm = TRUE)
}
subdata
}
######################################################################
check_infocards <- function(subdata, artworks) {
infocard_only <- NULL
if(any(unique(subdata$item) %in% artworks)) {
infocard_only <- FALSE
} else {
infocard_only <- TRUE
}
as.numeric(infocard_only)
}
######################################################################
normalize <- function(x) {
(x - min(x)) / (max(x) - min(x))
}
######################################################################
get_centrality <- function(case, data) {
data$start <- data$date.start
data$complete <- data$date.stop
alog <- bupaR::activitylog(data[data$case == case, ],
case_id = "case",
activity_id = "item",
resource_id = "path",
timestamps = c("start", "complete"))
net <- processmapR::process_map(alog, render = FALSE)
inet <- DiagrammeR::to_igraph(net)
igraph::centr_betw(inet)$centralization
}