From ae8d7073314276d887fdf4b64733630965a84273 Mon Sep 17 00:00:00 2001
From: Duncan Gillespie <duncan.gillespie@sheffield.ac.uk>
Date: Fri, 1 Sep 2023 14:30:54 +0100
Subject: [PATCH] correction - mean_sod is already in units per drinking
 occassion

---
 R/RRAlc.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/RRAlc.R b/R/RRAlc.R
index 09a2f3b..9e98db5 100644
--- 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]
     
   }