test

KlausVigo · Oct 19, 2024 · b97654b · b97654b
1 parent 31e2709
commit b97654b
Show file tree

Hide file tree

Showing 2 changed files with 2 additions and 2 deletions.
diff --git a/R/ancestral.R b/R/ancestral.R
@@ -211,7 +211,7 @@ anc_pml <- function(object, type = "marginal", ...) {
 #' align <- read.phyDat("ancestral_align.fasta", format="fasta")
 #' tree <- read.tree("ancestral_tree.nwk")
 #' df <- read.table("ancestral.state", header=TRUE)
-#' anc_ml_disc <- as.ancestral(tree, align, df)
+#' anc_ml_disc <- as.ancestral(tree, df, align)
 #' plotAnc(anc_ml_disc, 20)
 #' unlink(c("ancestral_align.fasta", "ancestral_tree.nwk", "ancestral.state"))
 #' @rdname write.ancestral

diff --git a/inst/tinytest/test_ancestral.R b/inst/tinytest/test_ancestral.R
@@ -36,7 +36,7 @@ write.ancestral(anc_ml)
 align <- read.phyDat("ancestral_align.fasta", format = "fasta")
 tree <- read.tree("ancestral_tree.nwk")
 df <- read.table("ancestral.state", header=TRUE)
-anc_ml_disc <- as.ancestral(tree, align, df)
+anc_ml_disc <- as.ancestral(tree, df, align)
 expect_equal(anc_ml$tree, anc_ml_disc$tree)
 expect_equal(anc_ml$data[tree$tip.label], anc_ml_disc$data)
 #expect_equal(anc_ml[[3]], anc_ml_disc[[3]])