make design variable factor

richardli · Aug 14, 2024 · ef4654b · ef4654b
1 parent 3227b06
commit ef4654b
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/fitspace.R b/R/fitspace.R
@@ -496,7 +496,7 @@ smoothSurvey <- function(data, geo = NULL, Amat = NULL, region.list = NULL, X =
         data$region0 <- factor(data$region0, levels = colnames(Amat))   
         if(svy){
             data$weights0 <- data[, weightVar]
-            data$strata0 <- data[, strataVar]
+            data$strata0 <- factor(data[, strataVar])
         }
     }