diff --git a/R/PArisk.R b/R/PArisk.R
index 3c29b12..805c2a8 100644
--- 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
index 4d0d2d2..be06724 100644
--- 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
index 50a34c4..574b5ee 100644
--- 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,