tests/testthat/test_logsum.R

# Tests "logsum" function
context("adding small probabilities")
library(dst)
test_that("logsum", {
  expect_equal(exp(logsum(log(1e-5),log(1e-5))),1e-5+1e-5)
})
RAPLER/dst-1 documentation built on June 2, 2025, 9:22 a.m.