antsrMetricSetFixedTransform.Rd
set transform for fixed image
antsrMetricSetFixedTransform(metric, transform)
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))
antsrMetricSetFixedTransform(metric, tx)
#> antsrMetric_SetTransform()
antsrMetricGetValue(metric)
#> [1] -0.7580596