Estimación de parametros

Pre-procesamiento

Los datos son del banco mundial, y corresponden al crecimiento poblacional(% anual) y el gasto de consumo final de los hogares(% del crecimiento anual).Se manejaron los datos correspondientes a Autralia a partir de 1961, debido a que en 1960 no habia datos registrados y una celda vacia me daba miedo que produciera errores.

#DG , datos gasto de australia sacado del banco mundial
    library(readxl)
    DG <- read_excel("DG.xls")
    attach(DG)
#DP, datos poblacion de australia del banco mundial
    library(readxl)
    DP <- read_excel("DP.xls")
    attach(DP)
## The following object is masked from DG:
## 
##     Año
## Se usa Merge Para unirlas
    U=merge(DG, DP,)

Siguiendo , La base de datos final quedaria con tres variables , Año, Gasto y Poblacion.

#borrar Año
    UF<- U[, -1]

Procesamiento y definicion de variables

Se tomara la poblacion como independiente y X como variable dependeiente. Asimismo se cambiaran ambas variables de ser leidas como caracteres a ser caracterizadas como un numero.

X=UF$Gasto
Y=UF$Poblacion
class("Gasto")
## [1] "character"
class("Poblacion")
## [1] "character"
# cambiar el ordem 
X= as.numeric(as.character(UF$Gasto))
Y= as.numeric(as.character(UF$Poblacion))
class(X)
## [1] "numeric"
class(Y)
## [1] "numeric"

Definicion de parametros

Parametro B1

#SACAR EL B1
#numerador
N=(nrow(UF)*sum(X*Y))-(sum(X)*sum(Y))
#Denominador
D=(nrow(UF)*sum(X^2))- sum(X)^2
B1=N/D

De esta manera hallamos el B1 cuenta con el valor 0.07501798

Parametro B0

#SACAR EL B0
Yn=mean(Y)
Xn=mean(X)
B0=Yn-(B1*Xn)

De esta manera hallamos que B0 es de 1.250498