# NOT RUN {
img = makeImage( c(10,10,10) , rnorm( 1000 ) )
fik <- weingartenImageCurvature( img )
if ( abs( mean(fik) - 128 ) > 1 ) stop("weingartenImageCurvature failure")
# }
# NOT RUN {
fi <- antsImageRead( getANTsRData( "mni" ) )
fik <- weingartenImageCurvature( fi )
# }
Run the code above in your browser using DataLab