From 110ab4f28b73123965b383ceafe554a45fab3118 Mon Sep 17 00:00:00 2001
From: sergio <zergioibarra@gmail.com>
Date: Sun, 1 Dec 2024 22:41:12 -0700
Subject: [PATCH] fix #228

---
 R/ef_cetesb.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/R/ef_cetesb.R b/R/ef_cetesb.R
index 092d5173..0f23fc99 100644
--- a/R/ef_cetesb.R
+++ b/R/ef_cetesb.R
@@ -211,10 +211,10 @@ ef_cetesb <- function(p,
   if(length(p) > 1) stop("One pollutant each time please")
 
 
-  #extend ef until 120 years in past ####
+  #extend ef until 150 years in past ####
   # rep nrow ef
   lef <- split(ef, ef$Pollutant)
-  nx <- 120 - nrow(lef[[1]])
+  nx <- 150 - nrow(lef[[1]])
   ef <- data.table::rbindlist(
     lapply(
       1:length(lef),