inst/tinytest/test-20-niftyreg.R

In RNiftyReg: Image Registration Using the 'NiftyReg' Library

options(RNiftyReg.threads=2L)

if (system.file(package="loder") == "") {
    warning("The \"loder\" package is not available")
} else {
    house <- loder::readPng(system.file("extdata","house.png",package="RNiftyReg"))
    affine <- buildAffine(skews=0.1, source=house, target=house)
    skewedHouse <- applyTransform(affine, house)
    
    reg <- niftyreg(skewedHouse, house, symmetric=FALSE)
    expect_equal(forward(reg)[1,2], 0.1, tolerance=0.1)
    
    reg <- niftyreg(skewedHouse, house, symmetric=TRUE)
    expect_equal(forward(reg)[1,2], 0.1, tolerance=0.1)
    
    # Only true for the symmetric case
    expect_equivalent(invertAffine(forward(reg)), reverse(reg), tolerance=0.0001)
    
    # Hopefully registration has improved the NMI!
    expect_true(similarity(skewedHouse,house) < similarity(RNifti::asNifti(reg),house))
    
    if (at_home()) {
        reg <- niftyreg(skewedHouse, house, scope="nonlinear", init=forward(reg))
        expect_equal(dim(forward(reg)), c(47L,59L,1L,1L,2L))
    }
}