# \donttest{
#Abrir imagem das folhas
im=read_image(example_image(3),plot=TRUE)
#Abrir paleta de cores do fundo
fundo=read_image(example_image(4),plot=TRUE)
#Abrir paleta de cores das folhas
folhas=read_image(example_image(5),plot=TRUE)
#Abrir paleta de cores referencia
ref=read_image(example_image(6),plot=TRUE)
#Gerando modelo logit
#################################################################
Modelo=segmentation_logit(im,foreground=folhas,
background=list(fundo,ref),
return="model",plot=FALSE)
summary(Modelo)
#################################################################
# Predicao a partir do modelo ajustado
im2=predict_logit(im,Modelo,plot=TRUE)
# }
Run the code above in your browser using DataLab