From ff61dd613357185937f676f43200bb641bfdb8dc Mon Sep 17 00:00:00 2001 From: Hana Sevcikova Date: Thu, 26 Sep 2024 10:35:45 -0700 Subject: [PATCH] removed unnecessary while loop --- DESCRIPTION | 4 ++-- R/mcmc_ini.R | 2 +- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/DESCRIPTION b/DESCRIPTION index 49d5353..b94dacd 100644 --- 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 (hanas@uw.edu), Leontine Alkema (alkema@nus.edu.sg), Peiran Liu (prliu@uw.edu), Adrian Raftery (raftery@uw.edu), Bailey Fosdick (bfosdick@uw.edu), Patrick Gerland (gerland@un.org) Maintainer: Hana Sevcikova diff --git a/R/mcmc_ini.R b/R/mcmc_ini.R index d1ae8d3..e4ec7a0 100755 --- 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 } }