From b37eb5cd895dec3c938a1d689ffe5a2a2add4d74 Mon Sep 17 00:00:00 2001 From: Duncan Gillespie Date: Fri, 1 Sep 2023 14:33:31 +0100 Subject: [PATCH] edit for consistency --- R/PArisk.R | 2 +- R/WArisk_acute.R | 2 +- R/intervalprob.R | 2 +- 3 files changed, 3 insertions(+), 3 deletions(-) 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,