# NOT RUN {
tx = createAntsrTransform(dimension=2, precision="float", type="AffineTransform")
params = getAntsrTransformParameters(tx)
setAntsrTransformParameters(tx, params*2)
pt2 = applyAntsrTransform(tx, c(1,2,3))
# }
Run the code above in your browser using DataLab