fixed failing test

jr-leary7 · Jan 3, 2024 · 35e9611 · 35e9611
1 parent 694d9dc
commit 35e9611
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/tests/testthat/test_scLANE.R b/tests/testthat/test_scLANE.R
@@ -228,9 +228,9 @@ withr::with_output_sink(tempfile(), {
                                      genes = gene_embedding$gene,
                                      gene.clusters = gene_embedding$leiden)
   # gene program significance
-  progam_significance <- geneProgramSignificance(list(sim_data$cluster_0),
-                                                 pt = pt_test$PT,
-                                                 program.labels = c("Cluster0"))
+  program_significance <- geneProgramSignificance(list(sim_data$cluster_0),
+                                                  pt = pt_test$PT,
+                                                  program.labels = c("Cluster0"))
   # gene program drivers
   program_drivers <- geneProgramDrivers(sim_data,
                                         genes = gene_embedding$gene,