From 55d68b8de022ac4b673af24415b073d6ec3e195a Mon Sep 17 00:00:00 2001 From: schlenther Date: Wed, 11 Sep 2024 12:25:23 +0200 Subject: [PATCH] minor --- src/main/R/drtAnalysis/plotRunSummaries.R | 2 +- src/main/R/drtAnalysis/readValuesFromRunSummaries.R | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/src/main/R/drtAnalysis/plotRunSummaries.R b/src/main/R/drtAnalysis/plotRunSummaries.R index 485050d..cf2f502 100644 --- a/src/main/R/drtAnalysis/plotRunSummaries.R +++ b/src/main/R/drtAnalysis/plotRunSummaries.R @@ -4,7 +4,7 @@ library(tidyr) mainDir <- "E:/matsim-kelheim/v3.1.1/output-KEXI-2.45-AV--0.0/" -transposed_result <- read.csv(paste(mainDir, "results-deutsch.csv", sep=""), check.names = FALSE, sep =";") +transposed_result <- read.csv(paste(mainDir, "results-deutsch.csv", sep=""), check.names = FALSE, sep =",") #names(transposed_result) <- make.names(names(transposed_result), unique = TRUE, allow_ = FALSE) # Betriebszeiten umschreiben diff --git a/src/main/R/drtAnalysis/readValuesFromRunSummaries.R b/src/main/R/drtAnalysis/readValuesFromRunSummaries.R index 348f80a..eb278b6 100644 --- a/src/main/R/drtAnalysis/readValuesFromRunSummaries.R +++ b/src/main/R/drtAnalysis/readValuesFromRunSummaries.R @@ -28,7 +28,7 @@ read_stats <- function(folder_path, file_name) { csv_path <- file.path(folder_path, "analysis/drt-drt-av", file_name) if (file.exists(csv_path)) { - df <- read_csv(csv_path) + df <- read_csv(csv_path, show_col_types = FALSE) mean_values <- df %>% select(parameter, mean) return(mean_values) } else {