powered by
data("frey_faces") im <- matrix(faces[1, 560:1], 20, 28) image(1:nrow(im), 1:ncol(im), im, xlab="", ylab="")
Run the code above in your browser using DataLab