# NOT RUN {
fi = antsImageRead( getANTsRData( 'r16' ) )
mi = antsImageRead( getANTsRData( 'r64' ) )
mygr = createWarpedGrid( mi )
# }
# NOT RUN {
mytx <- antsRegistration(fixed=fi, moving=mi, typeofTransform = c('SyN') )
mywarpedgrid = createWarpedGrid( mi, gridDirections=c(F,T),
transform=mytx$fwdtransforms, fixedReferenceImage=fi )
plot( fi, mywarpedgrid, alpha=0.75, color.overlay='blue' )
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab