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) 
})
muschellij2/atropos documentation built on May 4, 2019, 3:17 p.m.