expand subSpatialCovs for all times in simCTHMM

bmcclintock · Dec 7, 2024 · e21567c · e21567c
1 parent 61942dd
commit e21567c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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) {