tests/testthat/test-review.R

test_that("review works", {
  review_newdata<-readRDS(test_path("fixtures", "review_newdata.rds"))
  anymorts<-readRDS(test_path("fixtures", "anymorts.rds"))
  expect_equal(review(morts=anymorts,new.data=new.data,type="mort",ID="ID",
                      station="Station.Name"),review_newdata)
})

Try the mort package in your browser

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

mort documentation built on Sept. 4, 2023, 9:06 a.m.