diff --git a/episodes/03-loops-R.Rmd b/episodes/03-loops-R.Rmd
index 703a31fd..94d3562b 100644
--- a/episodes/03-loops-R.Rmd
+++ b/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)