tests/testthat/test-joinvo.R

test_that("joinvo works", {
  expect_silent(joinvo(longitudinal_HFS,"HFS","Time"))
  expect_silent(joinvo(FFbenvo,"FFR","Distance"))
  expect_silent(joinvo(FFbenvo,"FFR","Distance",NA_to_zero = TRUE))
  expect_equivalent(unique(joinvo(FFbenvo,"FFR","Distance")$id),FFbenvo$subject_data$id)
})

Try the rbenvo package in your browser

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

rbenvo documentation built on Nov. 18, 2020, 5:07 p.m.