tests/testthat/test_drift.R

library(testthat)

test_that("Test sim_multiphylo()", {
  tree<-readRDS(file="tree.RDS")
  G<-readRDS(file="G.RDS")
  ns<-readRDS(file="ns.RDS")

  expect_equal(matrix(0,2,2), sim_multiphylo(G = G,phy = tree,n.s = ns,efsize=0)$A)
})
FabioLugar/mvEvol documentation built on Dec. 21, 2024, 7:25 p.m.