img <- antsImageRead(getANTsRData("r16"))
tx = new("antsrTransform", precision="float", type="AffineTransform", dimension=2 )
setAntsrTransformParameters(tx, c(0.9,0,0,1.1,10,11) )
img2 = applyAntsrTransformToImage(tx, img, img)
# plot(img,img2)
Run the code above in your browser using DataLab