Fix cluster subset sign indexing

Copilot · kaiemjoy · web-flow · commit 1a361a907377 · 2026-06-26T08:09:50.000Z
Co-authored-by: kaiemjoy &lt;16113030+kaiemjoy@users.noreply.github.com&gt;
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,7 +1,7 @@
 Type: Package
 Package: serocalculator
 Title: Estimating Infection Rates from Serological Data
-Version: 1.4.1.9000
+Version: 1.4.1.9001
 Authors@R: c(
     person("Kristina", "Lai", , "kwlai@ucdavis.edu", role = c("aut", "cre")),
     person("Chris", "Orwa", role = "aut"),
diff --git a/R/compute_cluster_robust_var.R b/R/compute_cluster_robust_var.R
@@ -49,7 +49,7 @@
       pop_data_combined = pop_data_combined
     )
     robust_var_log_lambda <- robust_var_log_lambda +
-      (-1)^(n_vars_per_subset[[i]] + 1) * subset_var_log_lambda
+      (-1)^(n_vars_per_subset[i] + 1) * subset_var_log_lambda
   }
 
   # Use a conservative floor so cluster-robust variance does not fall below the

Original file line number	Diff line number	Diff line change
`@@ -49,7 +49,7 @@`
`49`	`49`	`pop_data_combined = pop_data_combined`
`50`	`50`	`)`
`51`	`51`	`robust_var_log_lambda <- robust_var_log_lambda +`
`52`		`- (-1)^(n_vars_per_subset[[i]] + 1) * subset_var_log_lambda`
	`52`	`+ (-1)^(n_vars_per_subset[i] + 1) * subset_var_log_lambda`
`53`	`53`	`}`
`54`	`54`
`55`	`55`	`# Use a conservative floor so cluster-robust variance does not fall below the`