@@ -1,7 +1,7 @@

 Package: OncoSimulR

 Type: Package

 Title: Forward Genetic Simulation of Cancer Progression with Epistasis 

-Version: 3.1.1

+Version: 3.1.2

 Date: 2021-10-06

 Authors@R: c(

 	      person("Ramon", "Diaz-Uriarte", role = c("aut", "cre"),	

@@ -1,3 +1,6 @@

+Changes in version 3.1.2 (2021-10-06):

+	- Better test of poset transformation

+	

 Changes in version 3.1.1 (2021-10-06):

 	- XOR, AND, OR dependencies: plots of DAGs honor all possible values.

 	- Few miscell minor changes.

@@ -163,14 +163,14 @@ test_that("to rT from poset, through adjmat with and w.o. root",

               ##     OncoSimulR:::adjmat.to.restrictTable(

               ##         OncoSimulR:::posetToGraph(p5, names = 0:5, addroot = TRUE, type = "adjmat"),

               ##         root = TRUE))

-              expect_true(all.equal(

-                  OncoSimulR:::adjmat.to.restrictTable(

-                      OncoSimulR:::posetToGraph(p5, names = 1:5, addroot = FALSE, type = "adjmat"),

-                      root = FALSE),

-                  OncoSimulR:::adjmat.to.restrictTable(

-                      OncoSimulR:::posetToGraph(p5, names = 0:5, addroot = TRUE, type = "adjmat"),

-                      root = TRUE)

-              ))

+              ## cleaner

+              aa <- OncoSimulR:::adjmat.to.restrictTable(

+                                     OncoSimulR:::posetToGraph(p5, names = 1:5, addroot = FALSE, type = "adjmat"),

+                                     root = FALSE)

+              bb <- OncoSimulR:::adjmat.to.restrictTable(

+                                     OncoSimulR:::posetToGraph(p5, names = 0:5, addroot = TRUE, type = "adjmat"),

+                                     root = TRUE)

+              expect_equal(aa, bb)

           })