diff --git a/find_balance_accuracy_v4.R b/find_balance_accuracy_v4.R
index 0fdc916..4373ef5 100644
--- a/find_balance_accuracy_v4.R
+++ b/find_balance_accuracy_v4.R
@@ -12,9 +12,9 @@ num_files = length(file_name_list)
 for (i in 1:num_files) {
   #file_name <- file_name_list[i]
   if(length(grep("_file.R","my_file.R",fixed=TRUE)) == 1){
-    file_name = file_name_list[(i)]
+    file_name = file_name_list[[i]]
     #load(paste0("/Users/user/Desktop/BD2K_project/data/", file_name))
-    stats = confM[(4)]
+    stats = confM[[4]]
     bal_accs = stats[,11]
     avg_bal_acc = mean(stats[,11])
     print(avg_bal_acc)