remove correction factor to detect abnormal epochs when computing step accumulation metrics

pydemull · pydemull · commit d9df6bb9bbf9 · 2025-03-20T20:35:40.000+01:00
diff --git a/R/recap_by_day.R b/R/recap_by_day.R
@@ -207,8 +207,7 @@ recap_by_day <- function(
              
              ## Remove epochs with abnormal counts
              if (ehcv != "none" & is.numeric(ehcv) & ehcv >= 0) {
-               ehcv <- ehcv / cor_factor
-               df_step_metrics$steps   <- dplyr::if_else(df_step_metrics$axis1 >= ehcv, NA, df_step_metrics$steps)
+               df_step_metrics$steps <- dplyr::if_else(df_step_metrics$axis1 >= ehcv, NA, df_step_metrics$steps)
              }
              
              ## Compute step-based metrics
@@ -252,7 +251,6 @@ recap_by_day <- function(
              
              ## Remove epochs with abnormal counts
              if (ehcv != "none" & is.numeric(ehcv) & ehcv >= 0) {
-               ehcv <- ehcv / cor_factor
                df_step_metrics$steps   <- dplyr::if_else(df_step_metrics$axis1 >= ehcv, NA, df_step_metrics$steps)
              }
              

Original file line number	Diff line number	Diff line change
`@@ -207,8 +207,7 @@ recap_by_day <- function(`
`207`	`207`
`208`	`208`	`## Remove epochs with abnormal counts`
`209`	`209`	`if (ehcv != "none" & is.numeric(ehcv) & ehcv >= 0) {`
`210`		`- ehcv <- ehcv / cor_factor`
`211`		`- df_step_metrics$steps <- dplyr::if_else(df_step_metrics$axis1 >= ehcv, NA, df_step_metrics$steps)`
	`210`	`+ df_step_metrics$steps <- dplyr::if_else(df_step_metrics$axis1 >= ehcv, NA, df_step_metrics$steps)`
`212`	`211`	`}`
`213`	`212`
`214`	`213`	`## Compute step-based metrics`
`@@ -252,7 +251,6 @@ recap_by_day <- function(`
`252`	`251`
`253`	`252`	`## Remove epochs with abnormal counts`
`254`	`253`	`if (ehcv != "none" & is.numeric(ehcv) & ehcv >= 0) {`
`255`		`- ehcv <- ehcv / cor_factor`
`256`	`254`	`df_step_metrics$steps <- dplyr::if_else(df_step_metrics$axis1 >= ehcv, NA, df_step_metrics$steps)`
`257`	`255`	`}`
`258`	`256`