# NOT RUN {
# Demonstration of f
load(system.file("extdata", "faces.Rda", package="largeVis"))
imagepaths <- paste("pathtoimages",
faceLabels[,1], sub("png", "jpg", faceLabels[,2]), sep = "/")
manifoldMapStretch(as.matrix(faceCoords[,1:2]),
f = function(x) jpeg::readJPEG(imagePaths[x]),
size_x = 5000, size_y = 5000, image_size = 100)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab