labelGeometryMeasures.RdWrapper for the ANTs funtion labelGeometryMeasures
labelGeometryMeasures(labelImage, intensityImage = NULL)none
fi <- antsImageRead(getANTsRData("r16"), 2)
seg <- kmeansSegmentation(fi, 3)$segmentation
geom <- labelGeometryMeasures(seg, fi)