tests/testthat/test_getAnchorDimension.R

test_that("getAnchorDimension", {

  d <- data_asq

  skip_on_cran()

  anchor_dim <- PROsetta:::getAnchorDimension(d)
  expect_equal(anchor_dim, 1)

  d@itemmap$instrument <- 3 - d@itemmap$instrument
  anchor_dim <- PROsetta:::getAnchorDimension(d)
  expect_equal(anchor_dim, 2)

})

Try the PROsetta package in your browser

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

PROsetta documentation built on Feb. 16, 2023, 9:14 p.m.