tests/testthat/test_get_estimates_matrix.R

cor_est <- get_estimates(cor(iris[,1:4]))

test_that("get_estimates works for correlations", {
  expect_equal(as.vector(cor_est$estimate),
               as.vector(cor(iris[,1:4])))
  })
jomulder/BFpack documentation built on April 1, 2024, 5:27 a.m.