From 66e8d6b6998438062a86f9106bee77262bbf06eb Mon Sep 17 00:00:00 2001
From: Filipe Rodrigues <filipejacintorodrigues1@gmail.com>
Date: Wed, 13 Dec 2023 17:34:09 +0000
Subject: [PATCH] Replaced "Acum" with "Accum".

---
 code/6.R | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/code/6.R b/code/6.R
index e732ab2..9c877e3 100644
--- a/code/6.R
+++ b/code/6.R
@@ -5,7 +5,7 @@ calc_avg_delay <- function(ArrivalRate, ServiceRate, StoppingCondition) {
   NumQueueCompleted <- 0
   ServerStatus <- 0
   NumInQueue <- 0
-  AcumDelay <- 0
+  AccumDelay <- 0
   QueueArrivalTime <- c()
   EventList <- c(rexp(1, ArrivalRate), Inf)
 
@@ -27,7 +27,7 @@ calc_avg_delay <- function(ArrivalRate, ServiceRate, StoppingCondition) {
         ServerStatus <- 0
         EventList[2] <- Inf
       } else {
-        AcumDelay <- AcumDelay + Time - QueueArrivalTime[1]
+        AccumDelay <- AccumDelay + Time - QueueArrivalTime[1]
         QueueArrivalTime <- QueueArrivalTime[-1]
         NumInQueue <- NumInQueue - 1
         NumQueueCompleted <- NumQueueCompleted + 1
@@ -36,7 +36,7 @@ calc_avg_delay <- function(ArrivalRate, ServiceRate, StoppingCondition) {
     }
   }
 
-  AcumDelay / NumQueueCompleted
+  AccumDelay / NumQueueCompleted
 }
 
 generate_graph <- function(rho, output_file) {