Switched to iris data from R datasets

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")
+  ylab("Petal Length")

intermediate-r-data-visualization/4. Hill_equation_interactive.R

@@ -50,4 +50,6 @@ server <- function(input, output) {
   
 }
 
-shinyApp(ui, server)
+shinyApp(ui, server)
+
+