removed unnecessary while loop

PPgp · Sep 26, 2024 · ff61dd6 · ff61dd6
1 parent f1ab941
commit ff61dd6
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: bayesTFR
-Version: 7.4-2.9005
-Date: 2024-09-25
+Version: 7.4-2.9006
+Date: 2024-09-26
 Title: Bayesian Fertility Projection
 Author: Hana Sevcikova ([email protected]), Leontine Alkema ([email protected]), Peiran Liu ([email protected]), Adrian Raftery ([email protected]), Bailey Fosdick ([email protected]), Patrick Gerland ([email protected])
 Maintainer: Hana Sevcikova <[email protected]>

diff --git a/R/mcmc_ini.R b/R/mcmc_ini.R
@@ -97,7 +97,7 @@ find.lambda.for.one.country <- function(tfr, T_end, annual = FALSE) {
 	  lambda <- min(which(year.bin == lambda) + 2, Tendorig)
 	  if (Tendorig - lambda < 5) { # if in the last (observed) time period, set it to the end of the period
 	      lambda <- Tendorig
-	      while(is.na(tfrorig[lambda])) lambda <- lambda - 1 # move it before the last NA if any
+	      #while(is.na(tfrorig[lambda])) lambda <- lambda - 1 # move it before the last NA if any - not needed anymore
 	  }
 	}