R/mtt
R/mtt
0
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Removed unnecessary columns in create_eventlogs

Browse Source
This commit is contained in:
Nora Wickelmaier 2023-10-30 11:45:52 +01:00
parent 83e47c56ee
commit f98eb36484
1 changed files with 4 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
R/create_eventlogs.R
View File

@ -89,6 +89,10 @@ create_eventlogs <- function(data, xmlpath = NULL, case_cutoff = 20,
dat4$timeMs.start[which(dat4$fIdDiff > 0)] + dat4$timeMs.start[which(dat4$fIdDiff > 0)] +
dat4$timeMs.stop[which(dat4$fIdDiff > 0)] dat4$timeMs.stop[which(dat4$fIdDiff > 0)]
dat4$fIdNum.start <- NULL
dat4$fIdNum.start <- NULL
dat4$fIdDiff <- NULL
# Remove fragmented traces ############################################### # Remove fragmented traces ###############################################
tab <- stats::xtabs( ~ trace + event, dat4) tab <- stats::xtabs( ~ trace + event, dat4)
@ -119,7 +123,6 @@ create_eventlogs <- function(data, xmlpath = NULL, case_cutoff = 20,
dat6b <- dat6[!dat6$glossar == 1, ] dat6b <- dat6[!dat6$glossar == 1, ]
dat7 <- rbind(dat5[!dat5$trace %in% rownames(event_dat)[frag_ids], ], dat7 <- rbind(dat5[!dat5$trace %in% rownames(event_dat)[frag_ids], ],
dat6b) dat6b)
# TODO: Check me!
} else { } else {
dat7 <- dat5 dat7 <- dat5
dat7$glossar <- NULL dat7$glossar <- NULL