imageSummaries: Produce summaries of image properties

In CulturalAnalytics: Functions for statistical analysis and plotting of image properties

Description

This function produces a matrix of summaries for a list of images.

Usage

imageSummaries(images)

Arguments

images

A list of raster images

Value

A matrix of summary values for the images. Each row represents a single image. See the column names for what the values represent, they are the summaryHsv and sdHsv values.

Examples

library(CulturalAnalytics)
library(jpeg)

stripExtension<-function(filename){
  sub("\\.[^.]+$", "", filename)
}

underscoresToSpaces<-function(source){
  gsub("_", " ", source)
}

cleanFilename<-function(filepath){
  filename<-basename(filepath)
  name<-stripExtension(filename)
  underscoresToSpaces(name)
}

imgdir<-paste(system.file(package = "CulturalAnalytics"),
              "images/Claude_Monet/Haystacks", sep = "/")
imgPaths<-paste(imgdir, dir(path = imgdir, pattern = ".jpg"), sep = "/")
imgs<-lapply(imgPaths, function(path){readJPEG(path)})
imgNames<-cleanFilename(imgPaths)
imageSummariesData<-data.frame(name=imgNames,
                               imageSummaries(imgs),
                               stringsAsFactors=FALSE)

CulturalAnalytics documentation built on May 2, 2019, 5:24 p.m.