Minor bug fix for the case fs_by_spatial_BAU = TRUE

andrewzm · Dec 7, 2023 · 4a4e75a · 4a4e75a
1 parent 66546ff
commit 4a4e75a
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/SREfit.R b/R/SREfit.R
@@ -874,7 +874,7 @@ SRE.fit <- function(object, n_EM = 100L, tol = 0.01, method = c("EM", "TMB"),
 
     ## If zero fine-scale variation detected just make sure user knows.
     ## This can be symptomatic of poor fitting
-    if(object@sigma2fshat == 0) {
+    if(any(object@sigma2fshat == 0)) {
       info_fit$sigma2fshat_equal_0 <- 1
       if(opts_FRK$get("verbose") > 0)
         message("sigma2fs is being estimated to zero.