fix typo

Author: aloctavodia

tests/testthat/test_refmodel.R

@@ -260,15 +260,10 @@ test_that(paste(
 
     # Without `ynew`:
     expect_warning(
-      predref_resp <- withCallingHandlers(
-        predict(refmods[[tstsetup]], dat,
-                weightsnew = wobs_crr,
-                offsetnew = offs_crr,
-                type = "response"),
-      ),
-      get_warn_wrhs_orhs(tstsetup,
-                        weightsnew = wobs_crr,
-                        offsetnew = offs_crr),
+      predref_resp <- predict(refmods[[tstsetup]], dat, weightsnew = wobs_crr,
+                              offsetnew = offs_crr, type = "response"),
+      get_warn_wrhs_orhs(tstsetup, weightsnew = wobs_crr,
+                         offsetnew = offs_crr),
       info = tstsetup
     )