diff --git a/04_Clustering/dimension.R b/04_Clustering/dimension.R
index d36f6f7..33c7409 100644
--- a/04_Clustering/dimension.R
+++ b/04_Clustering/dimension.R
@@ -19,14 +19,15 @@ plotellipses(pca_iris)
 # t-SNE
 
 iris %>%
+  select(-Species) %>%
   Rtsne(check_duplicates = F,
-        pca = F) -> tsne_iris
+        pca = F,
+        verbose = T) -> tsne_iris
 
 tsne_iris
 
 tsne_iris$Y %>%
   as.tibble %>%
   ggplot() +
-  aes(x = V1, y = V2, color = iris$Species) +
+  aes(x = V1, y = V2) +
   geom_point()
-