Find eigenfaces of the Olivetti faces dataset in R.

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
# ...