## Not run:
# samplePics <- c('fruits', 'pastel_color', 'sample1', 'TurnColorsGrayImage1', 'TurnColorsGrayImage2')
# for (pics in samplePics)
# {
# fname<-paste(system.file(package='CVD'),'/extdata/',pics,'.png',sep='')
# imgTest<-loadPNG(fname)
# imgTest.array<-approx.scotopic.luminance.LarsonEtAl.RGB.array(imgTest)
# png::writePNG(imgTest.array, paste(pics, '.approx.scotopic.luminance.LarsonEtAl.RGB.png',sep=''))
# }
# ## End(Not run)
Run the code above in your browser using DataLab