invariant-ambig case

We expect all states to be mapped to 0, as it's unparsimonious to propose an additional state. Still feels unsatisfactory though..?
ms609 · Feb 17, 2025 · 1111907 · 1111907
1 parent 295a3a3
commit 1111907
Show file tree

Hide file tree

Showing 3 changed files with 167 additions and 3 deletions.
diff --git a/tests/testthat/_snaps/PlotCharacter/plotchar-invar-ambig.svg b/tests/testthat/_snaps/PlotCharacter/plotchar-invar-ambig.svg
diff --git a/tests/testthat/_snaps/PlotCharacter/plotchar-invariant.svg b/tests/testthat/_snaps/PlotCharacter/plotchar-invariant.svg
diff --git a/tests/testthat/test-PlotCharacter.R b/tests/testthat/test-PlotCharacter.R
@@ -161,10 +161,14 @@ test_that("PlotCharacter.multi()", {
 
   skip_if_not_installed("vdiffr")
   vdiffr::expect_doppelganger("PlotChar_consensus", function() {
-    par(mfrow = c(2, 2), mar = rep(0, 4))
     PlotCharacter(trees, dat)
+  })
+  vdiffr::expect_doppelganger("PlotChar_invariant", function() {
     inv <- TreeTools::StringToPhyDat("00000000", tips = a..h)
     PlotCharacter(trees, inv)
-    }
-  )
+  })
+  vdiffr::expect_doppelganger("PlotChar_invar_ambig", function() {
+    invq <- TreeTools::StringToPhyDat("000?00?{01}", tips = a..h)
+    PlotCharacter(trees, invq)
+  })
 })