From 2130747468d93c9206d8047b8fa1d2f42df323f9 Mon Sep 17 00:00:00 2001
From: Gabriel Michael Chavez <52179896+elcompagabe@users.noreply.github.com>
Date: Tue, 9 Jul 2019 14:28:54 -0700
Subject: [PATCH] Update find_balance_accuracy_v4.R

---
 find_balance_accuracy_v4.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/find_balance_accuracy_v4.R b/find_balance_accuracy_v4.R
index c84addb..d786b48 100644
--- a/find_balance_accuracy_v4.R
+++ b/find_balance_accuracy_v4.R
@@ -10,7 +10,8 @@ file_name_list = list.files(path = "/Users/user/Desktop/BD2K_project/data/")
 #files_name_list 
 num_files = length(file_name_list)
 for (i in 1:num_files) {
-  if(file_name <- gsub('_stats_preds.RData', '', file_name_list)){
+  #file_name <- file_name_list[i]
+  if(length(grep("_file.R","my_file.R",fixed=TRUE)) == 1){
     file_name = file_name_list[(i)]
     load(paste0("/Users/user/Desktop/BD2K_project/data/", file_name))
     stats = confM[(4)]