When assigning random PSU IDs *within* variance stratum, don't need t…

…o use var_strat variable.
bschneidr · Oct 11, 2023 · 02574ce · 02574ce
1 parent 158b2e3
commit 02574ce
Showing 1 changed file with 0 additions and 1 deletion.
diff --git a/R/as_jackknife_design.R b/R/as_jackknife_design.R
@@ -311,7 +311,6 @@ as_random_group_jackknife_design.survey.design <- function(
   n_psus <- design_vars$PSU |> unique() |> length()
   psu_random_labels <- sample(x = n_psus, size = n_psus, replace = FALSE)
   design_vars[['RAND_PSU_ID']] <- interaction(
-    design_vars[['VAR_STRAT']],
     design_vars[['STRATUM']],
     psu_random_labels[design_vars[['PSU']]],
     drop = TRUE, lex.order = TRUE