From e21567c3fbf7d307de9306b0e515aafda8624478 Mon Sep 17 00:00:00 2001
From: Brett McClintock <brett.mcclintock@noaa.gov>
Date: Sat, 7 Dec 2024 13:33:59 -0800
Subject: [PATCH] expand subSpatialCovs for all times in simCTHMM

---
 R/simData.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/simData.R b/R/simData.R
index 94135e6..5e50e4d 100644
--- a/R/simData.R
+++ b/R/simData.R
@@ -1699,6 +1699,7 @@ simData <- function(nbAnimals=1,nbStates=2,dist,
         dt[[zoo]] <- c(as.numeric(difftime(allTimes[-1],allTimes[-length(allTimes)],units=attr(lambda[[zoo]],"units"))),0)
       } else dt[[zoo]] <- c(diff(allTimes),0)
       subCovs <- subCovs[cumsum(!allTimes %in% tswitch),,drop=FALSE]
+      subSpatialcovs <- subSpatialcovs[cumsum(!allTimes %in% tswitch),,drop=FALSE]
       if(!is.null(iallCovs)) iallCovs <- iallCovs[cumsum(!allTimes %in% tswitch),,drop=FALSE]
       
       if(!nbSpatialCovs & !length(centerInd) & !length(centroidInd) & !length(angleCovs) & !rwInd) {