Merge pull request #592 from annajiat/patch-2

Update 03-loops-R.Rmd

episodes/03-loops-R.Rmd

@@ -31,7 +31,7 @@ We have created a function called `analyze` that creates graphs of the minimum,
 ```{r inflammation-01, fig.alt=c("Scatterplot of average daily inflammation over 40 days, increasing in a mostly straight line until day 20, and then decreasing in a mostly straight line to visualize inflammation levels in a single dataset.", "A scatterplot of maximum daily inflammation over 40 days, increasing in a straight line until day 20, and then decreasing in a straight line to visualize inflammation levels in a single dataset.", "A scatterplot of minimum daily inflammation over 40 days, increasing in a step-wise pattern until day 20, and then decreasing in a step-wise pattern to visualize inflammation levels in a single dataset.")}
 analyze <- function(filename) {
   # Plots the average, min, and max inflammation over time.
-  # Input is character string of a csv file.
+  # The argument or input is a character string representing the name and location of a CSV file.
   dat <- read.csv(file = filename, header = FALSE)
   avg_day_inflammation <- apply(dat, 2, mean)
   plot(avg_day_inflammation)