Move a comment to a more appropriate place.

stan-dev · Nov 22, 2023 · 4fc0b19 · 4fc0b19
1 parent 6da4909
commit 4fc0b19
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/refmodel.R b/R/refmodel.R
@@ -1182,9 +1182,9 @@ init_refmodel <- function(object, data, formula, family, ref_predfun = NULL,
 
   # Functions ---------------------------------------------------------------
 
-  # The internal default for `extract_model_data`:
   extract_model_data_usr <- extract_model_data
   if (is.null(extract_model_data_usr)) {
+    # The internal default for `extract_model_data`:
     extract_model_data_usr <- function(object, newdata, wrhs = NULL,
                                        orhs = NULL, extract_y = TRUE) {
       return(y_wobs_offs(newdata = newdata, wrhs = wrhs, orhs = orhs,