diff --git a/test script.R b/test script.R
index 2445b48..83a05f8 100644
--- a/test script.R	
+++ b/test script.R	
@@ -2,3 +2,15 @@
 
 library(datasets)
 data(iris) #This loads the iris data set
+
+#Let's do some data analysis
+library(tidyverse)
+
+#added a a comment
+
+glimpse(iris)
+
+#average petal length
+iris %>% 
+  group_by(Species) %>% 
+  summarise(average_petal_l = mean(Petal.Length))