remove warning message in smoothSurvey if not doing smoothing

richardli · Oct 12, 2023 · 96dfd5b · 96dfd5b
1 parent 317d41d
commit 96dfd5b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fitspace.R b/R/fitspace.R
@@ -274,7 +274,7 @@ smoothSurvey <- function(data, geo = NULL, Amat = NULL, X = NULL, X.unit = NULL,
     if(is.null(responseType)){
         stop("responseType not specified")
     }  
-    if(is.null(Amat)){
+    if(is.null(Amat) && smooth){
         message("No spatial adjacency matrix is specified. IID area random effect is used.")
     }
     is.iid.space <- FALSE