diff --git a/R/random_distribution.R b/R/random_distribution.R index 4a282aa4..a84d9386 100644 --- a/R/random_distribution.R +++ b/R/random_distribution.R @@ -76,10 +76,10 @@ distribution_repeater <- function(number_of_repeatings = 10, #' @param log10_mean mean value (default: (log10_min + log10_max)/2), only used #' if 'type' is "log10_norm" #' @param log10_sdev standard deviation (default: (log10_max- log10_mean) / -#' qnorm(0.9)), only used if 'type' is "log10_norm" +#' qnorm(0.95)), only used if 'type' is "log10_norm" #' @param mean mean value (default: mean of min & max value), only used if 'type' #' is "norm" -#' @param sdev standard deviation (default: (max-mean) / qnorm(0.9)), +#' @param sdev standard deviation (default: (max-mean) / qnorm(0.95)), #' only used if 'type' is "norm" #' @param meanlog log mean value (default: mean of log min & max value), only #' used if 'type' is "lognorm" @@ -112,9 +112,9 @@ create_random_distribution <- function(type = "uniform", log10(max), log10_zero_threshold), log10_mean = (log10_min + log10_max) / 2, - log10_sdev = (log10_max - log10_mean) / qnorm(0.9), + log10_sdev = (log10_max - log10_mean) / qnorm(0.95), mean = (min + max) / 2, - sdev = (max - mean) / qnorm(0.9), + sdev = (max - mean) / qnorm(0.95), meanlog = mean(log((min + max) / 2)), sdlog = sd(log((c(min, max)))), mode = (min + max) / 2, diff --git a/man/create_random_distribution.Rd b/man/create_random_distribution.Rd index 3b31c5d3..58f5bb41 100644 --- a/man/create_random_distribution.Rd +++ b/man/create_random_distribution.Rd @@ -10,8 +10,8 @@ create_random_distribution(type = "uniform", number_of_repeatings = 1, > 1, log10(min), ifelse(min == 0 && max < 1, 0.01 * max, log10_zero_threshold)), log10_max = ifelse(max > 0, log10(max), log10_zero_threshold), log10_mean = (log10_min + log10_max)/2, - log10_sdev = (log10_max - log10_mean)/qnorm(0.9), mean = (min + - max)/2, sdev = (max - mean)/qnorm(0.9), meanlog = mean(log((min + + log10_sdev = (log10_max - log10_mean)/qnorm(0.95), mean = (min + + max)/2, sdev = (max - mean)/qnorm(0.95), meanlog = mean(log((min + max)/2)), sdlog = sd(log((c(min, max)))), mode = (min + max)/2, debug = TRUE) } @@ -51,12 +51,12 @@ log10_zero_threshold), only used if 'type' is "log10_uniform" or "log10_norm"} if 'type' is "log10_norm"} \item{log10_sdev}{standard deviation (default: (log10_max- log10_mean) / -qnorm(0.9)), only used if 'type' is "log10_norm"} +qnorm(0.95)), only used if 'type' is "log10_norm"} \item{mean}{mean value (default: mean of min & max value), only used if 'type' is "norm"} -\item{sdev}{standard deviation (default: (max-mean) / qnorm(0.9)), +\item{sdev}{standard deviation (default: (max-mean) / qnorm(0.95)), only used if 'type' is "norm"} \item{meanlog}{log mean value (default: mean of log min & max value), only