diff --git a/R/dist.R b/R/dist.R index 99a303363..671653d86 100644 --- a/R/dist.R +++ b/R/dist.R @@ -1787,7 +1787,7 @@ new_dist_spec <- function(params, distribution) { } ## convert normal with sd == 0 to fixed if (distribution == "normal" && is.numeric(params$sd) && params$sd == 0) { - rQet <- list( + ret <- list( parameters = list(value = params$mean), distribution = "fixed" ) } else {