tests/testthat/test-anc-state.R

In OUwie: Analysis of Evolutionary Rates in an OU Framework

context("test-anc-state.R")

test_that("ancestral state estimation works", {
    skip_on_cran()
    data("tworegime")
    fitted <- OUwie(tree,trait,model=c("OUMV"),root.station=FALSE, algorithm="invert", check.identify=FALSE)
    recon <- OUwie.anc(fitted, knowledge=TRUE)
    expect_s3_class(recon, "OUwie.anc")
})