tests/testthat/test_std_kelman_po2_to_so2.R

In bakenzua/co2ntent: Calculate Carbon Dioxide and Oxygen content of blood

context("std_kelman_po2_to_so2")

test_that("std_kelman_po2_to_so2 returns correct number", {
  expect_equal(std_kelman_po2_to_so2(10), 0.950795, tolerance=0.000001)
})

test_that("kelman_po2_to_so2 returns correct number for mmHg units", {
  expect_equal(std_kelman_po2_to_so2(10 / 0.133322, inputs_are_kpa = FALSE), 0.950795, tolerance=0.000001)
})