# \donttest{
#remove(list=ls())
#require(ExpImage)
im=read_image(example_image(3))
##mostrar imagem
plot(im)
g=gray_scale(im,"g",plot=TRUE)
Seg=segmentation(img.band = g,threshold = "otsu",selectHigher = FALSE,
fillHull = TRUE,plot = TRUE)
split_image(im=im,Seg=Seg,noise = 200,CutImage = FALSE,tolerance = 1,
saveImage = FALSE,plot = TRUE,col="blue",cex=2)
# }
Run the code above in your browser using DataLab