# NOT RUN {
img <- antsImageRead( getANTsRData("r16"))
seg <- kmeansSegmentation( img, 3 )$segmentation
flist = list( img, img %>% iMath("Grad") )
featMat <- getMultiResFeatureMatrix( flist, seg, rad=c(1,1),
multiResSchedule = c( 2, 1), nsamples=10 )
# }
Run the code above in your browser using DataLab