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

next step

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

4
secondDbSteps.r
View File

@ -37,7 +37,7 @@ get_freq_df <- function(con, startDate, endDate) {
con <- dbConnect(RPostgres::Postgres(), con <- dbConnect(RPostgres::Postgres(),
dbname='mainscnt', dbname='mainscnt',
host='172.16.10.27', host='db.mainscnt.eu',
user='wn') user='wn')
@ -56,7 +56,7 @@ for (offset in 0:0) {
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(names(freq_wide)[c(-1, - colIdx)]), na.rm=TRUE)) %>%
mutate(!!colName.diff := abs()) mutate(!!colName.diff := eval(as.name(colName.mean)) - freq_wide[colIdx])
} }