tests/testthat/test-convert_etdrs_to_logmar.R

In admiralophtha: ADaM in R Asset Library - Ophthalmology

## Test 1: ETDRS converted correctly ----
test_that("convert_etdrs_to_logmar Test 1: ETDRS converted correctly", {
  input <- c(5, 10, 15, 20, 25, 30, 90)

  expected_output <- c(1.6, 1.5, 1.4, 1.3, 1.2, 1.1, -0.1)
  actual_output <- convert_etdrs_to_logmar(input)

  expect_equal(
    actual_output,
    expected_output,
  )
})