set transform for moving image

antsrMetricSetMovingTransform(metric, transform)

Arguments

metric

an 'antsrMetric'

transform

an 'antsrTransform'

Examples

x <- antsImageRead(getANTsRData("r16"))
y <- antsImageRead(getANTsRData("r30"))
metric <- antsrMetricCreate(x, y, type = "ANTSNeighborhoodCorrelation")
tx <- createAntsrTransform(precision = "double", type = "AffineTransform", dimension = 2)
setAntsrTransformParameters(tx, c(0, -1, 1, 0, 0, 0))
setAntsrTransformFixedParameters(tx, c(128, 128))
antsrMetricSetMovingTransform(metric, tx)
#> antsrMetric_SetTransform()
antsrMetricGetValue(metric)
#> [1] -0.7576979