Skip to content

Instantly share code, notes, and snippets.

@mick001

mick001/eigenfaces_olivetti.R

Created August 13, 2018 14:39
Show Gist options
  • Save mick001/375cb927ca42cbd196191c80f8643063 to your computer and use it in GitHub Desktop.
Save mick001/375cb927ca42cbd196191c80f8643063 to your computer and use it in GitHub Desktop.
Download ZIP
Find eigenfaces of the Olivetti faces dataset in R.
Raw
eigenfaces_olivetti.R
#-------------------------------------------------------------------------------
# Plot of eigenfaces
# First 4 eigenfaces
plt_img(eigenvectors[, 1]) # Eigenface 1
plt_img(eigenvectors[, 2]) # Eigenface 2
plt_img(eigenvectors[, 3]) # Eigenface 3
plt_img(eigenvectors[, 4]) # Eigenface 4
plt_img(eigenvectors[, 20]) # Eigenface 20
# ...
Sign up for free to join this conversation on GitHub. Already have an account? Sign in to comment