Factor de expansion para proyectar poblacion

[arojasj]

Buenas noches,

Estoy trabajando con la encuesta nacional de hogares y necesito calcular el factor de expansión para proyectar la población. Alguien tan amable de ayudarme?

[FJCC]

Try fitting the log of the population versus time.

#Invent data
library(dplyr)

set.seed(154)
DF <- data.frame(Year=seq(1990,2020))
DF <- DF |> mutate(Poblacion=1000000*1.035^(Year-1990)+rnorm(31,0,50000))

# Fit log of poblacion
FIT <- lm(log(Poblacion)~Year,data=DF)
summary(FIT)
#> 
#> Call:
#> lm(formula = log(Poblacion) ~ Year, data = DF)
#> 
#> Residuals:
#>       Min        1Q    Median        3Q       Max 
#> -0.099878 -0.020439  0.003451  0.026638  0.051775 
#> 
#> Coefficients:
#>               Estimate Std. Error t value Pr(>|t|)    
#> (Intercept) -5.418e+01  1.435e+00  -37.75   <2e-16 ***
#> Year         3.417e-02  7.158e-04   47.73   <2e-16 ***
#> ---
#> Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
#> 
#> Residual standard error: 0.03565 on 29 degrees of freedom
#> Multiple R-squared:  0.9874, Adjusted R-squared:  0.987 
#> F-statistic:  2278 on 1 and 29 DF,  p-value: < 2.2e-16


#1.035 ~= 1.0342

^{Created on 2022-05-31 by the reprex package (v2.0.1)}