diff --git a/R/find_formula.R b/R/find_formula.R index b88fdb00c..4bb874ef7 100644 --- a/R/find_formula.R +++ b/R/find_formula.R @@ -1698,7 +1698,6 @@ find_formula.model_fit <- function(x, verbose = TRUE, ...) { f_coi <- f$pforms$coi f_kappa <- f$pforms$kappa f_bias <- f$pforms$bias - f_disc <- f$pforms$disc f_bs <- f$pforms$bs # brms formulas can also have custom names, based on variable names, e.g.: diff --git a/R/helper_functions.R b/R/helper_functions.R index 3884a29d8..fd256f001 100644 --- a/R/helper_functions.R +++ b/R/helper_functions.R @@ -229,7 +229,7 @@ "extra", "scale", "marginal", "alpha", "beta", "survival", "infrequent_purchase", "auxiliary", "mix", "shiftprop", "phi", "ndt", "hu", "xi", "coi", "zoi", "aux", "dist", "selection", "outcome", "time_dummies", "sigma_random", - "beta_random", "car", "nominal", "bidrange", "mu", "kappa", "bias", "disc" + "beta_random", "car", "nominal", "bidrange", "mu", "kappa", "bias" ) } @@ -237,7 +237,7 @@ c( "sigma", "alpha", "beta", "dispersion", "precision", "nu", "tau", "shape", "phi", "(phi)", "ndt", "hu", "xi", "coi", "zoi", "mix", "shiftprop", "auxiliary", - "aux", "dist", "mu", "kappa", "bias", "disc", + "aux", "dist", "mu", "kappa", "bias", # random parameters "dispersion_random", "sigma_random", "beta_random" ) @@ -246,7 +246,7 @@ .brms_aux_elements <- function() { c( "sigma", "mu", "nu", "shape", "beta", "phi", "hu", "ndt", "zoi", "coi", - "kappa", "bias", "bs", "zi", "disc", "alpha", "xi" + "kappa", "bias", "bs", "zi", "alpha", "xi" ) }