edit for consistency

STAPM · Sep 1, 2023 · b37eb5c · b37eb5c
1 parent ae8d707
commit b37eb5c
Show file tree

Hide file tree

Showing 3 changed files with 3 additions and 3 deletions.
diff --git a/R/PArisk.R b/R/PArisk.R
@@ -156,7 +156,7 @@ PArisk <- function(
     # but this can influence the probability density
     # but it makes things slow to have a large number
     # try scaling back by 10%
-    kn <- 600 * 0.9
+    kn <- 600 * 0.9 # 540
 
     grams_ethanol <- 1:kn
 

diff --git a/R/WArisk_acute.R b/R/WArisk_acute.R
@@ -82,7 +82,7 @@ WArisk_acute <- function(
   # grams_ethanol_per_unit <- 8
   # alc_wholly_acute_thresholds <- c(6, 8)
 
-  kn <- 600 * 0.9
+  kn <- 600 * 0.9 # 540
   grams_ethanol <- 1:kn
 
   # Units consumed above the binge threshold

diff --git a/R/intervalprob.R b/R/intervalprob.R
@@ -25,7 +25,7 @@
 #' 
 #'
 intervalprob <- function(
-  grams_ethanol = 1:600,
+  grams_ethanol = 1:540,
   SODMean = NULL,
   SODSDV = NULL,
   SODFreq = NULL,