tests/testthat/test-antsImageClone.R

context("Cloning image")

test_that("image can be cloned", {
         img1 <- antsImageRead( getANTsRData("r16"), 2 )
         img2 <- antsImageClone(img1)
         expect_true(sum(abs(as.array(img1))) == sum(abs(as.array(img2)))) 
})
neuroconductor-devel/ANTsR documentation built on April 1, 2021, 1:02 p.m.