only expand varnum_event if length is less than typical day length #653

wadpac · Dec 2, 2024 · 17c4aba · 17c4aba
1 parent 3cd47b9
commit 17c4aba
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/g.analyse.perday.R b/R/g.analyse.perday.R
@@ -408,7 +408,7 @@ g.analyse.perday = function(ndays, firstmidnighti, time, nfeatures,
                 # Then also extract count metric
 
                 varnum_event = as.numeric(as.matrix(vari[,ExtFunColsi]))
-                if (NRV != length(averageday[, ExtFunColsi])) {
+                if (NRV < length(averageday[, ExtFunColsi])) {
                   if (di == 1) {
                     varnum_event = c(averageday[1:abs(deltaLength), ExtFunColsi], varnum_event)
                   } else {