tests/testthat/test-antsImageRead.R

context("Reading image")

test_that("image can be read", {
  img <- antsImageRead(getANTsRData("r16"), 2)
  expect_true(sum(abs(as.array(img))) == 3307036)
})
stnava/ANTsR documentation built on April 16, 2024, 12:17 a.m.