# NOT RUN {
fn <- getANTsRData( "r16" )
fi <- antsImageRead( fn )
antsImageWrite( fi , tempfile( fileext = ".nii.gz" ) )
antsImageWrite( fi , tempfile( fileext = ".mha" ) )
antsImageWrite( fi , tempfile( fileext = ".nrrd" ) )
antsImageWrite( antsImageClone( fi, "unsigned int" ) ,
tempfile( fileext = ".jpg" ) )
antsImageWrite( antsImageClone( fi, "float" ) ,
tempfile( fileext = ".tif" ) )
antsImageWrite( fi, tempfile( fileext = ".mrc" ) )
antsImageWrite( fi, tempfile( fileext = ".hd5" ) )
# }
Run the code above in your browser using DataLab