# NOT RUN {
balloon1 <- image(system.file("sample_img/balloon1.png", package = "Rvision"))
balloon2 <- image(system.file("sample_img/balloon2.png", package = "Rvision"))
balloon_weighted <- addWeighted(balloon1, balloon2)
# }
Run the code above in your browser using DataLab