Skip to content

Instantly share code, notes, and snippets.

@ateucher

ateucher/exif-focal-length.R

Created May 1, 2015 18:27
Show Gist options
  • Save ateucher/d15abb83b705681bcf21 to your computer and use it in GitHub Desktop.
Save ateucher/d15abb83b705681bcf21 to your computer and use it in GitHub Desktop.
Download ZIP
exif-focal-length.R
Raw
exif-focal-length.R
flengths <- system('exiftool -T -r -FocalLength -ext .NEF "."', intern=TRUE)
flengths.num <- as.numeric(strsplit(flengths, split=" mm"))
hist(flengths.num,breaks=20, main="Frequency of focal lengths used by Andy\nfor 1631 photos in the Galapagos Islands", xlab="Focal Length")
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment