mainscnt/mainscntanalysis
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

changes

Browse Source
This commit is contained in:
Wolfgang Hottgenroth
2021-08-11 10:52:53 +02:00
parent ce8b99995e
commit 2e60594d1f
1 changed files with 10 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
secondDbSteps.r
View File

@ -41,7 +41,7 @@ con <- dbConnect(RPostgres::Postgres(),
user='wn') user='wn')
START <- "2021-08-03 00:00:00" START <- "2021-08-03 07:00:00"
INTERVAL <- 3600 INTERVAL <- 3600
for (offset in 0:0) { for (offset in 0:0) {
@ -49,17 +49,22 @@ for (offset in 0:0) {
endDate <- startDate + INTERVAL endDate <- startDate + INTERVAL
freq_wide <- get_freq_df(con, startDate, endDate) freq_wide <- get_freq_df(con, startDate, endDate)
freq_wide_names <- names(freq_wide)
for (colIdx in 2:length(freq_wide)) { for (colIdx in 2:length(freq_wide)) {
colName.mean <- paste("mean.w.o.", names(freq_wide)[colIdx], sep="") colName.mean <- paste("mean.w.o.", freq_wide_names[colIdx], sep="")
colName.diff <- paste(names(freq_wide)[colIdx], ".to.mean", sep="") colName.diff <- paste(freq_wide_names[colIdx], ".to.mean", sep="")
freq_wide <- freq_wide %>% freq_wide <- freq_wide %>%
rowwise() %>% rowwise() %>%
mutate(!!colName.mean := mean(c_across(names(freq_wide)[c(-1, - colIdx)]), na.rm=TRUE)) %>% mutate(!!colName.mean := mean(c_across(freq_wide_names[c(-1, - colIdx)]), na.rm=TRUE)) %>%
mutate(!!colName.diff := eval(as.name(colName.mean)) - freq_wide[colIdx]) 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)) # print(summary(freq_wide))
} }