# a "perfect" score
## Not run:
# fname<-paste(system.file(package='CVD'),'/extdata/fruits.png',sep='')
# Color.Vision.Daltonize(fname, 'fruits.Daltonize.Protanope.png','Protanope')
# Color.Vision.Daltonize(fname, 'fruits.Daltonize.Deuteranope.png','Deuteranope')
# Color.Vision.Daltonize(fname, 'fruits.Daltonize.Tritanope.png','Tritanope')
# ## End(Not run)
Run the code above in your browser using DataLab