From cf41ec2c9c561fa962dd46fdd0ac4938ca4c19c2 Mon Sep 17 00:00:00 2001 From: Annajiat Alim Rasel Date: Thu, 31 Aug 2023 14:06:46 +0600 Subject: [PATCH] Update 03-loops-R.Rmd Tried to improve the comment as it seemed confusing. --- episodes/03-loops-R.Rmd | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/episodes/03-loops-R.Rmd b/episodes/03-loops-R.Rmd index 703a31fd9..94d3562b9 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)