# NOT RUN {
balloon <- image(system.file("sample_img/balloon1.png", package = "Rvision"))
high_contrast_lut <- 255 * pbeta(0:255 / 255, 4, 4)
high_contrast_balloon <- LUT(balloon, high_contrast_lut)
# }
Run the code above in your browser using DataLab