tsne <- Rtsne(train[,-1], dims = 3, perplexity=10, verbose=FALSE, max_iter = max_iter) plot(tsne$Y, t='n', main="tsne") text(tsne$Y, labels=train$Labels, ...
確定! 回上一頁