Dragonmasterx87

counts.seurat <- RunTSNE(counts.seurat,
                         reduction.use = "pca",
                         dims.use = 1:6,
                         dim.embed = 3)

DimPlot(object = counts.seurat, reduction.use = "tsne", dim.1 = 1, dim.2 = 3)

tSNE_1 <- counts.seurat@dr$tsne@cell.embeddings[,1]
tSNE_2 <- counts.seurat@dr$tsne@cell.embeddings[,2]
tSNE_3 <- counts.seurat@dr$tsne@cell.embeddings[,3]