tests/testthat/test-sort.R

test_that("sort", {
  mcmcr_example2 <- subset(mcmcr_example, pars = rev(pars(mcmcr_example)))
  expect_false(identical(mcmcr_example2, mcmcr_example))
  mcmcr_example2 <- sort(mcmcr_example2)
  expect_identical(mcmcr_example2, mcmcr_example)
  expect_identical(sort(mcmcrs(mcmcr_example))[[1]], mcmcr_example)
})

Try the mcmcr package in your browser

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

mcmcr documentation built on Sept. 7, 2021, 1:07 a.m.