tests/testthat/test_a13.R

#### test the a18 functions ####

# ----- Test accuracy -----
elena = function(alpha) round(1000*log(alpha),1)


test_that("a18_DIC*_H2O 'Beck equations' produce accurate values", {
  expect_equal(elena(a13_CO2g_CO2aq(temp = 25)), 1.1)
})

Try the isogeochem package in your browser

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

isogeochem documentation built on March 31, 2023, 8:30 p.m.