tests/testthat/test-JOU.R

In PCMBaseCpp: Fast Likelihood Calculation for Phylogenetic Comparative Models

library(testthat)
context("PCMLik, JOU")

library(PCMBase)
library(PCMBaseCpp)

if(PCMBaseCppIsADevRelease()) {
  
  load("testobjects.RData")
  
  set.seed(6)
  
  test_that("Equal R and Cpp likelihood on a random model, single regime (a)", {
    expect_silent(model.a.123.JOU <- PCM("JOU", k = 3, regimes = "a"))
    expect_silent(PCMParamLoadOrStore(model.a.123.JOU, 
                                      PCMParamRandomVecParams(model.a.123.JOU), 
                                      offset = 0, k = 3, load = TRUE))
    expect_silent(metaICpp <- PCMInfoCpp(X = traits.a.123[, 1:length(tree.a$tip.label)],
                                         tree = tree.a, model.a.123.JOU))
    expect_equal(PCMLik(traits.a.123, tree.a, model.a.123.JOU),
                 PCMLik(traits.a.123, tree.a, model.a.123.JOU, metaI = metaICpp))
    
  })
  
  test_that("Equal R and Cpp likelihood on a random model, multiple regimes (ab)", {
    expect_silent(model.ab.123.JOU <- PCM("JOU", k = 3, regimes = c("a", "b")))
    expect_silent(PCMParamLoadOrStore(model.ab.123.JOU, 
                                      PCMParamRandomVecParams(model.ab.123.JOU), 
                                      offset = 0, k = 3, load = TRUE))
    expect_silent(metaICpp <- PCMInfoCpp(X = traits.ab.123[, 1:length(tree.ab$tip.label)],
                                         tree = tree.ab, model.ab.123.JOU))
    expect_equal(PCMLik(traits.ab.123, tree.ab, model.ab.123.JOU),
                 PCMLik(traits.ab.123, tree.ab, model.ab.123.JOU, metaI = metaICpp))
    
  })
}