Birkhoff's aesthetic measure for images.

Description

Birkhoff's aesthetic measure is expressed as \(M=O/C\) Where M is the aesthetic measure, O is the order of the image and C is its complexity. For this function we use the entropy of the image as the order and the ratio of its uncompressed and compressed sizes (using the gzip compression algorithm) as its complexity.

Usage

1

Arguments

image

An image.

Value

A number representing the aesthetic measure of the image.

References

See: http://gilab.udg.edu/publ/container/publications/jaume-rigau/2007/Conceptualizing

Examples

1
2
3
4
5
6
library(CulturalAnalytics)
library(jpeg)
imgdir<-paste(system.file(package = "CulturalAnalytics"), "images", sep = "/")
imgs<-paste(imgdir, dir(path = imgdir, pattern = ".jpg"), sep = "/")
img<-readJPEG(imgs[1])
measure<-birkhoff(img)

Want to suggest features or report bugs for rdrr.io? Use the GitHub issue tracker.