From aabe196e2242c16bc2d73eb84bfe75cf9bccb482 Mon Sep 17 00:00:00 2001
From: Mauricio Caceres Bravo <mauricio.caceres.bravo@gmail.com>
Date: Tue, 23 Jan 2024 17:53:04 -0500
Subject: [PATCH] Update deltarmm.R

Typo introduced by having multiple tabs open.
---
 R/deltarmm.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/deltarmm.R b/R/deltarmm.R
index 11dba5f..826372c 100644
--- a/R/deltarmm.R
+++ b/R/deltarmm.R
@@ -31,7 +31,7 @@
 
   # Create a vector to extract the max first dif, which corresponds with the first dif for period s, or minus this if max_positive == FALSE
   v_max_dif <- base::matrix(0, nrow = 1, ncol = numPrePeriods + numPostPeriods + 1)
-  v_max_dif[(numPrePe@jonathandroth Just checking in!riods+s):(numPrePeriods+1+s)] <- c(-1,1)
+  v_max_dif[(numPrePeriods+s):(numPrePeriods+1+s)] <- c(-1,1)
 
   if (max_positive == FALSE){
     v_max_dif <- -v_max_dif