bug fixing

LandSciTech · Sep 5, 2024 · 269c202 · 269c202
1 parent 56504fd
commit 269c202
Showing 1 changed file with 4 additions and 1 deletion.
diff --git a/R/internal_demog_fns.R b/R/internal_demog_fns.R
@@ -263,7 +263,10 @@ simSurvivalData <- function(freqStartsByYear, exData, collarNumYears, collarOffT
   } else if (nrow(addBit) > 0) {
     simSurvObs <- merge(simSurvObs, addBit)
   }
-
+
+  if(nrow(simSurvObs)==0){
+    simSurvObs = data.frame(id=1,Year=freqStartsByYear$Year,event=NA,enter=NA,exit=NA)
+  }
   return(simSurvObs)
 }