From 7c1d68bc3f63cf9e1a5c09d6e672d0cab17cfad4 Mon Sep 17 00:00:00 2001
From: David Georg Reichelt <davidgeorg_reichelt@dagere.de>
Date: Mon, 19 Jul 2021 12:32:21 +0200
Subject: [PATCH] Also print standard deviation
---
frameworks/Kieker/scripts/stats.csv.r | 5 +++--
1 file changed, 3 insertions(+), 2 deletions(-)
diff --git a/frameworks/Kieker/scripts/stats.csv.r b/frameworks/Kieker/scripts/stats.csv.r
index 7d3e21f..8ba1ca1 100644
--- a/frameworks/Kieker/scripts/stats.csv.r
+++ b/frameworks/Kieker/scripts/stats.csv.r
@@ -67,9 +67,9 @@ for (writer_idx in (1:numberOfWriters)) {
qnorm_value <- qnorm(0.975)
# print results
-printDimensionNames <- list(c("mean","ci95%","md25%","md50%","md75%","max","min"), c(1:numberOfWriters))
+printDimensionNames <- list(c("mean","sd","ci95%","md25%","md50%","md75%","max","min"), c(1:numberOfWriters))
# row number == number of computed result values, e.g., mean, min, max
-printvalues <- matrix(nrow=7, ncol=numberOfWriters, dimnames=printDimensionNames)
+printvalues <- matrix(nrow=8, ncol=numberOfWriters, dimnames=printDimensionNames)
for (writer_idx in (1:numberOfWriters)) {
idx_mult <- c(1:numOfRowsToRead)
@@ -77,6 +77,7 @@ for (writer_idx in (1:numberOfWriters)) {
valuesBIG <- resultsBIG[writer_idx,idx_mult]/timeUnit
printvalues["mean",writer_idx] <- mean(valuesBIG)
+ printvalues["sd",writer_idx] <- sd(valuesBIG)
printvalues["ci95%",writer_idx] <- qnorm_value*sd(valuesBIG)/sqrt(length(valuesBIG))
printvalues[c("md25%","md50%","md75%"),writer_idx] <- quantile(valuesBIG, probs=c(0.25, 0.5, 0.75))
printvalues["max",writer_idx] <- max(valuesBIG)
--
GitLab