reduce a duplicate if clause

venpopov · Feb 28, 2024 · f485e2a · f485e2a
1 parent 2ca0ca1
commit f485e2a
Showing 1 changed file with 1 addition and 3 deletions.
diff --git a/R/bmm_model_SDT.R b/R/bmm_model_SDT.R
@@ -105,12 +105,10 @@ bmf2bf.SDT <- function(model, formula) {
    # retrieve required response arguments
    response <- model$resp_vars$response
    stimulus <- model$resp_vars$stimulus
-   if (!is.null(model$resp_vars$nTrials)) {
-      nTrials <- model$resp_vars$nTrials
-   }
 
    # set the base brmsformula given the variable names
    if (!is.null(model$resp_vars$nTrials)) {
+      nTrials <- model$resp_vars$nTrials
       brms_formula <- brms::bf(paste0(response," | ", "trials(",nTrials,")", " ~ dprime*",stimulus," - crit" ), nl = TRUE)
    } else {
       brms_formula <- brms::bf(paste0(response," ~ dprime*",stimulus," - crit"),nl = TRUE)