update test script

waldronlab · Nov 29, 2023 · 6ca0e67 · 6ca0e67
1 parent d1d5796
commit 6ca0e67
Showing 1 changed file with 0 additions and 15 deletions.
diff --git a/inst/scripts/test.R b/inst/scripts/test.R
@@ -27,25 +27,10 @@ myFun <- function(mat, per = 0.1) {
     mat
 }
 
-
 input_mat <- myFun(original, 0.95)
 input_mat <- input_mat[tree$tip.label,]
 fit <- fitMk(tree = primate.tree, x = input_mat,
               model = "ARD", pi = "fitzjohn",
               lik.func = "pruning", logscale = TRUE)
 ace <- ancr(fit, tips=TRUE)
 plot(ace, args.plotTree = list(direction="upwards"))
-
-
-
-
-
-
-
-
-
-
-
-
-
-