tests/testthat/test-ltratio.R

In lactater: Tools for Analyzing Lactate Thresholds

test_that("ltratio works", {
  results_ltratio <- lactate_threshold(
    .data = demo_data,
    intensity_column = "intensity",
    lactate_column = "lactate",
    heart_rate_column = "heart_rate",
    method = "LTratio",
    fit = "3rd degree polynomial",
    include_baseline = TRUE,
    sport = "cycling",
    plot = FALSE
  )
  expect_s3_class(object = results_ltratio, class = "tbl")
})