gistfile1.txt

library(pixmap)

face_vectors <- function (filenames){
  list_faces <- list()
  for( i in seq_along(filenames)){
    img <- read.pnm(filenames[i])
    new_face <- as.vector(t(img@grey))
    list_faces <- c(list_faces ,new_face )
    #C <- matrix(as.vector(img@grey), nrow=( dim(img@grey)[1] * dim(img@grey)[2] ), ncol=1)
  }
  return(list_faces)  
}
filenames <- list.files("~/rproject/faces94/male", pattern="*.pbm", full.names=TRUE, recursive = TRUE)
print(face_vectors(filenames))

https://www.dropbox.com/s/u7u67ps14hbjbpq/pbm.zip?dl=0

http://www.ijarcsse.com/docs/papers/Volume_4/1_January2014/V4I1-0151.pdf

http://www.pages.drexel.edu/~sis26/Eigenface%20Tutorial.htm