# NOT RUN {
fi<-antsImageRead( getANTsRData("r16") ,2)
mask<-getMask(fi)
imageMath( 2 , fi , "GD", fi , 1 ) # gray matter dilation
imageMath( 2 , mask , "Neg", mask ) # negate
imageMath( 2 , mask , "D", mask ) # distance transform
plot(mask)
# }
Run the code above in your browser using DataLab