From fff04455599f31fe74b28ba4bd33b1823a768e9a Mon Sep 17 00:00:00 2001
From: ambodi <amir.rahnama@gmail.com>
Date: Sat, 19 Sep 2015 19:09:37 +0200
Subject: [PATCH] change hard-coded loop with seq

---
 practice_assignment.rmd | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/practice_assignment.rmd b/practice_assignment.rmd
index 82bf3d0..651c517 100644
--- a/practice_assignment.rmd
+++ b/practice_assignment.rmd
@@ -171,7 +171,7 @@ Whoops.  Object 'dat' not found.  This is because you can't rbind something into
 
 ```{r}
 dat <- data.frame()
-for (i in 1:5) {
+for (i in seq(files_full)) {
         dat <- rbind(dat, read.csv(files_full[i]))
 }
 str(dat)
@@ -233,7 +233,7 @@ So what does the function look like?
 weightmedian <- function(directory, day)  {
         files_list <- list.files(directory, full.names=TRUE)   #creates a list of files
         dat <- data.frame()                             #creates an empty data frame
-        for (i in 1:5) {                                
+        for (i in seq(files_full)) {                               
                 #loops through the files, rbinding them together 
                 dat <- rbind(dat, read.csv(files_list[i]))
         }