finished supplemental data fix

PPgp · Apr 7, 2024 · 5265b93 · 5265b93
1 parent a5c31e6
commit 5265b93
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/wpp_data.R b/R/wpp_data.R
@@ -150,7 +150,7 @@ get.wpp.e0.data.for.countries <- function(meta, sex='M', my.e0.file=NULL,
 							interpolate = meta$wpp.year < 2022 && meta$annual && is.null(my.e0.file))
 	if (verbose) 
 		cat('Dimension of the e0 matrix:', dim(LEXmatrix.regions$obs_matrix), '\n')
-	if(!meta$annual.simulation || meta$wpp.year >= 2022) {
+	if((!meta$annual.simulation || meta$wpp.year >= 2022) && meta$use.wpp.data) {
 	    LEXmatrixsuppl.regions <- bayesTFR:::.get.suppl.matrix.and.regions(un.object, LEXmatrix.regions, loc_data, 
 									meta$start.year, meta$present.year, annual = meta$annual.simulation)
 	} else LEXmatrixsuppl.regions <- NULL