tests/testthat/test-anc-state.R

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")
})

Try the OUwie package in your browser

Any scripts or data that you put into this service are public.

OUwie documentation built on June 15, 2022, 5:15 p.m.