data("Mnist")
T <- Mnist$train$images
myorder <- order(Mnist$train$labels)
# tLDA need to be sorted by classes
T_sorted <- as.tensor(T[,myorder,])
# Using small tensor, 2 images for each class for demonstration
T <- T_sorted[,c(1:2,1001:1002,2001:2002,3001:3002,
4001:4002,5001:5002,6001:6002,7001:7002,
8001:8002,9001:9002),]
tLDA(T,10,2,"dct")
Run the code above in your browser using DataLab