next step

secondDbSteps.r

@@ -37,7 +37,7 @@ get_freq_df <- function(con, startDate, endDate) {
 
 con <- dbConnect(RPostgres::Postgres(), 
                  dbname='mainscnt', 
-                 host='172.16.10.27', 
+                 host='db.mainscnt.eu', 
                  user='wn')
 
 
@@ -56,7 +56,7 @@ for (offset in 0:0) {
     freq_wide <- freq_wide %>%
       rowwise() %>%
       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])
     
   }