# \donttest{
im1=read_image(example_image(2),plot=TRUE)
##Aumentar brilho
im2=edit_image(im1,brightness = 0.1)
#Aumentar contraste
im3=edit_image(im1,contrast = 1.2)
#Aumentar gamma
im4=edit_image(im1,gamma = 1.1)
#Alterando brilho, contraste e gamma
im5=edit_image(im3,brightness = 0.1,contrast = 1.7,gamma = 1.2)
#Juntando imagens em um objeto raster e plotando
join_image(im1,im2,im3,im4,im5)
#Juntando imagens em um objeto raster e plotando com uma lista
List1=list(im1,im2,im3,im4,im5)
join_image(List1)
im1b=read_image(example_image(7),plot=TRUE)
##Aumentar brilho
im2b=edit_image(im1b,brightness = 0.1)
#Aumentar contraste
im3b=edit_image(im1b,contrast = 1.2)
#Aumentar gamma
im4b=edit_image(im1b,gamma = 1.1)
#Alterando brilho, contraste e gamma
im5b=edit_image(im3b,brightness = 0.1,contrast = 1.7,gamma = 1.2)
#Juntando imagens em um objeto raster e plotando
join_image(im1b,im2b,im3b,im4b,im5b)
#Juntando imagens em um objeto raster e plotando com uma lista
List2=list(im1b,im2b,im3b,im4b,im5b)
join_image(List2)
#Juntando imagens presentes em duas listas
join_image(List1,List2)
# }
Run the code above in your browser using DataLab