next step
This commit is contained in:
@ -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])
|
||||||
|
|
||||||
}
|
}
|
||||||
|
|
||||||
|
Reference in New Issue
Block a user