# NOT RUN {
img <- antsImageRead(getANTsRData("r16"))
tx = new("antsrTransform", precision="float", type="AffineTransform", dimension=2 )
setAntsrTransformParameters(tx, c(0,-1,1,0,dim(img)[1],0) )
txinv = invertAntsrTransform(tx)
# }
Run the code above in your browser using DataLab