tests/testthat/test-crossicc.R

context("test-crossicc")

data("demo.platforms")
CrossICC.obj <- CrossICC(demo.platforms, skip.mfs = TRUE, max.iter = 100, use.shiny = FALSE, cross = "cluster", overwrite = TRUE, output.dir = tempdir())
test_that("CrossICC works", {
  expect_equal(length(CrossICC.obj), 10)
})

Try the CrossICC package in your browser

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

CrossICC documentation built on April 29, 2020, 4:40 a.m.