tests/testthat/test-chd_10y_mesa.R

In vcastro/CVrisk: Compute Risk Scores for Cardiovascular Diseases

test_that("MESA (no CAC): 70yo male example is correct", {
  expect_equal(
    chd_10y_mesa(
      gender = "male",
      age = 70,
      race = "hispanic",
      sbp = 130,
      hdl = 50,
      totchol = 190,
      bp_med = 1,
      lipid_med = 0,
      smoker = 0,
      diabetes = 0,
      fh_heartattack = 0
    ),
    8.61
  )
})