# NOT RUN {
load("mnist.Rda")
load("mnistcoordinates.Rda")
flip <- function(x) apply(x,2,rev)
rotate <- function(x) t(flip(x))
mnistimages <- apply(mnist$images,
MARGIN=1,
FUN = function(x) as.array(rotate(flip(x))))
mnistimages <- t(mnistimages)
dim(mnistimages) <- c(42000, 28, 28)
manifoldMap(coords,
1000,
scale = 0.07,
mnistimages)
# }
Run the code above in your browser using DataLab