Скачать с ютуб [Package ExpImage] 21. Apagar objeto em uma imagem: exclude_object() e pick_color() в хорошем качестве

[Package ExpImage] 21. Apagar objeto em uma imagem: exclude_object() e pick_color()

Nessa aula ensino como excluir um objeto em uma imagem utilizando o ExpImage. Seguem os comandos utilizados: remove(list=ls()) library(ExpImage) Abrindo a imagem im=read_image(example_image(3),plot=TRUE) #Obtendo a escalad e cinza m=gray_scale(im,method = "r/rgb",plot=TRUE) #Obtendo a mascara seg=segmentation(m,treshold = 0.50,selectHigher = TRUE,fillHull = TRUE,plot=TRUE) #Excluindo o objeto exclude_object(im,mask=seg,valueTarget = 0,color=c(r=0.95,g=0.94,b=0.94)) #dilatando o objeto e excluindo-o seg2=dilate_image(seg,n=5) exclude_object(im,mask=seg2,valueTarget = 0,color=c(r=0.95,g=0.94,b=0.94)) exclude_object(im,mask=seg2,valueTarget = 1,color=c(r=0.95,g=0.94,b=0.94)) Not run: Segmentar e excluir clicando sobre a imagem. exclude_object(im,valueTarget = 1,color=c(r=0.95,g=0.94,b=0.94)) cor=pick_color(im) CorMed=colMeans(cor$RGB[,-4]) exclude_object(im,valueTarget = 1,color=CorMed)