diff --git a/intermediate-r-data-visualization/1. iris.R b/intermediate-r-data-visualization/1. iris.R
index 22b02cc..cb8cf6a 100644
--- a/intermediate-r-data-visualization/1. iris.R	
+++ b/intermediate-r-data-visualization/1. iris.R	
@@ -1,5 +1,5 @@
 #Read data in.
-dat <- read.table("iris.csv", header= TRUE, sep = ",")
+dat <- iris
 
 #Plot using 'base' graphics.
 plot(x = dat$Sepal.Length, y = dat$Petal.Length,
@@ -195,4 +195,4 @@ ggplot(data = dat, aes(x = Sepal.Length, y = Petal.Length)) +
         panel.border = element_rect(size = c(1,1,1,1), color = "black", 
                                     fill = NA))+
   xlab("Sepal Length") +
-  ylab("Petal Length")
\ No newline at end of file
+  ylab("Petal Length")
diff --git a/intermediate-r-data-visualization/4. Hill_equation_interactive.R b/intermediate-r-data-visualization/4. Hill_equation_interactive.R
index b8e19f2..e35792d 100644
--- a/intermediate-r-data-visualization/4. Hill_equation_interactive.R	
+++ b/intermediate-r-data-visualization/4. Hill_equation_interactive.R	
@@ -50,4 +50,6 @@ server <- function(input, output) {
   
 }
 
-shinyApp(ui, server)
\ No newline at end of file
+shinyApp(ui, server)
+
+
diff --git a/intermediate-r-data-visualization/Visualization_with_ggplot2.zip b/intermediate-r-data-visualization/Visualization_with_ggplot2.zip
index 6160084..c4a7506 100644
Binary files a/intermediate-r-data-visualization/Visualization_with_ggplot2.zip and b/intermediate-r-data-visualization/Visualization_with_ggplot2.zip differ