Dar mishrs5

StudentNotebooks/Assignment01/dar-f24-assignment1-template.Rmd

@@ -4,11 +4,11 @@ subtitle: "DAR Assignment 1 (Fall 2024)"
 author: "Your Name Here"
 date: "`r format(Sys.time(), '%d %B %Y')`"
 output:
-  pdf_document: default
   html_document:
     toc: true
     number_sections: true
     df_print: paged
+  pdf_document: default
 ---
 ```{r setup, include=FALSE}
 # REQUIRE R PACKAGE INSTALLATIONS
@@ -309,6 +309,17 @@ pixl_trim.mat.pca <- prcomp(pixl_trim.mat, scale=FALSE)
 ggscreeplot(pixl_trim.mat.pca)
 ```
 
+
+Make a table indicating how many samples are in each cluster with k=3
+
+```{r}
+# clusters sizes are in the km object produced by kmeans
+cluster.df<-data.frame(cluster= 1:5, size=km$size)
+kable(cluster.df,caption="Samples per cluster")
+```
+
+
+
 ## Create a PCA Biplot using ggbiplot
 
 Now we'll create a biplot of the data colored by cluster and label by rock type.