From 2e60594d1fe2d4a96edd5d9a496cc5811a4a2160 Mon Sep 17 00:00:00 2001 From: Wolfgang Ludger Hottgenroth Date: Wed, 11 Aug 2021 10:52:53 +0200 Subject: [PATCH] changes --- secondDbSteps.r | 15 ++++++++++----- 1 file changed, 10 insertions(+), 5 deletions(-) diff --git a/secondDbSteps.r b/secondDbSteps.r index 5708909..5e89b49 100644 --- a/secondDbSteps.r +++ b/secondDbSteps.r @@ -41,7 +41,7 @@ con <- dbConnect(RPostgres::Postgres(), user='wn') -START <- "2021-08-03 00:00:00" +START <- "2021-08-03 07:00:00" INTERVAL <- 3600 for (offset in 0:0) { @@ -49,17 +49,22 @@ for (offset in 0:0) { endDate <- startDate + INTERVAL freq_wide <- get_freq_df(con, startDate, endDate) + freq_wide_names <- names(freq_wide) for (colIdx in 2:length(freq_wide)) { - colName.mean <- paste("mean.w.o.", names(freq_wide)[colIdx], sep="") - colName.diff <- paste(names(freq_wide)[colIdx], ".to.mean", sep="") + colName.mean <- paste("mean.w.o.", freq_wide_names[colIdx], sep="") + colName.diff <- paste(freq_wide_names[colIdx], ".to.mean", sep="") freq_wide <- freq_wide %>% rowwise() %>% - mutate(!!colName.mean := mean(c_across(names(freq_wide)[c(-1, - colIdx)]), na.rm=TRUE)) %>% - mutate(!!colName.diff := eval(as.name(colName.mean)) - freq_wide[colIdx]) + mutate(!!colName.mean := mean(c_across(freq_wide_names[c(-1, - colIdx)]), na.rm=TRUE)) %>% + mutate(!!colName.diff := abs(eval(as.name(colName.mean)) - eval(as.name(freq_wide_names[colIdx]))) * 100) } + means <- freq_wide %>% select(ends_with(".to.mean")) + means.means <- apply(means, 2, mean, na.rm=TRUE) + + # print(summary(freq_wide)) }