From e46cd70f01d628cfacb60373777cbf985576cc1f Mon Sep 17 00:00:00 2001
From: Zack Tabellione <ztabelli@nd.edu>
Date: Fri, 19 Nov 2021 10:12:27 -0500
Subject: [PATCH] final version

---
 Exercise9_answers.R | 27 +++++++++++++++++++++++++++
 1 file changed, 27 insertions(+)
 create mode 100644 Exercise9_answers.R

diff --git a/Exercise9_answers.R b/Exercise9_answers.R
new file mode 100644
index 0000000..5f1c857
--- /dev/null
+++ b/Exercise9_answers.R
@@ -0,0 +1,27 @@
+
+variancefunction <- function(dir,x){
+  files <- list.files(path = dir, pattern = "*.csv")
+
+finalvector <- vector()
+for(i in files){
+  a = 0
+  b = 0
+  if(i[,x] < 50){
+    print("Error less than 50 entries, type yes to continue, or anything else to break")
+    if(readline() == "yes"){
+      a<-mean(i[,x])
+      b<-sd(i[,x])
+      variancecoef = b/a
+      append(finalvector,variancecoef, after = length(finalvector))
+    }else{
+      break
+    }
+  }else{
+    a<-mean(i[,x])
+    b<-sd(i[,x])
+    variancecoef = b/a
+    append(finalvector,variancecoef, after = length(finalvector))
+  }
+}
+
+}