# \donttest{
end=example_image(2)
im=read_image(end,plot=TRUE)
m=gray_scale(im,method = "GLI",plot=TRUE)
plot_image(m,col=3)
seg=segmentation(m,treshold = 0.2,fillHull = TRUE,plot=TRUE)
info_image(im)
im2=create_png(im,seg)
info_image(im2)
#write_image(im2,files = "imagem.png")
im2=create_png(im,seg,crop=TRUE)
info_image(im2)
#write_image(im2,files = "imagem.png")
# }
Run the code above in your browser using DataLab