Nothing
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))
}
}
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.