# \donttest{
#Carregando imagens de exemplo
im=read_image(example_image(3))
Fundo=read_image(example_image(4))
Folha=read_image(example_image(5))
Ref=read_image(example_image(6))
paleta=list(Fundo=Fundo,Folha=Folha,Referencia=Ref)
col=c("black","green","red")
#### Criando imagem
Image=segmentation_RF(im=im,
palette=paleta,
return="image",
NumMax=1000,
col=col,
seed=NULL,
norma=1,
plot=TRUE)
#Criando um modelo
model=segmentation_RF(im=im,
palette=paleta,
return="model",
NumMax=1000,
col=col,
seed=NULL,
norma=1,
plot=FALSE)
image=predict_RF(im,model,col="rand",plot=TRUE)
# }
Run the code above in your browser using DataLab