correction - mean_sod is already in units per drinking occassion

STAPM · Sep 1, 2023 · ae8d707 · ae8d707
1 parent c3e781e
commit ae8d707
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/RRAlc.R b/R/RRAlc.R
@@ -127,7 +127,7 @@ RRalc <- function(
   if(!isTRUE(getcurve)) {
 
     # Calculate average amount drunk per drinking occasion
-    p <- grams_ethanol_per_unit * data_RRalc[ , mean_sod] / data_RRalc[ , drink_freq]
+    p <- grams_ethanol_per_unit * data_RRalc[ , mean_sod]
 
   }