# NOT RUN {
img <- antsImageRead( getANTsRData("r16") , 2 )
img <- resampleImage( img, c(64,64), 1, 0 )
mask <- getMask(img)
segs1 = kmeansSegmentation( img, 3 )
labelStats(img, segs1$segmentation)
# }
Run the code above in your browser using DataLab