# NOT RUN {
i<-antsImageRead( getANTsRData('r16') , 2 )
roiImg<-getMask(i)
data( "iMathOps", package = "ANTsR", envir = environment() ) #
for ( j in c(1:nrow(iMathOps)) )
{
op <- as.character( iMathOps$Operation[j] )
k <- eval( parse( text = toString( iMathOps$Example[j] ) ) )
}
# }
Run the code above in your browser using DataLab