Paso a Paso

El primer paso fue escoger una base de datos, la cual fue el libro “Gujarati” especificamente la Tabla 5.5, donde se proporcionan los datos sobre el salario promedio de un maestro de escuela pública (el sueldo anual está en dólares) y el gasto en educación pública por alumno (dólares) para 1985 en los 50 estados y el Distrito de Columbia en Estados Unidos.

Y se utilizó el siguiente codigo para cargar los datos.

install.packages("remotes")
## Installing package into '/cloud/lib/x86_64-pc-linux-gnu-library/4.2'
## (as 'lib' is unspecified)
remotes::install_github("brunoruas2/gujarati")
## Skipping install of 'gujarati' from a github remote, the SHA1 (a532f273) has not changed since last install.
##   Use `force = TRUE` to force installation
library(remotes)
library(gujarati)

Paso 2

A continuación se van a cargar los datos de la tabla 5.5

head(gujarati::Table5_5)
##   SALARY SPENDING
## 1  19583     3346
## 2  20263     3114
## 3  20325     3554
## 4  26800     4642
## 5  29470     4669
## 6  26610     4888
attach(Table5_5)

Paso 3

Sacar las variables de la tabla

names(Table5_5)
## [1] "SALARY"   "SPENDING"
y=as.numeric(as.character(Table5_5$SALARY))
x=as.numeric(as.character(Table5_5$SPENDING))

Paso 4

Hallar b1 y b0

b1=(nrow(Table5_5)*sum(x*y)-(sum(x)*sum(y)))/(nrow(Table5_5)*sum(x^2)-sum(x)^2)
b1
## [1] 3.307585
b0=mean(y)-b1*mean(x)
b0
## [1] 12129.37

Paso 5

Comprobar el b1 y b0

lm(y~x)
## 
## Call:
## lm(formula = y ~ x)
## 
## Coefficients:
## (Intercept)            x  
##   12129.371        3.308

Paso 6

Conclusiones

Se pudo concluir que por cada dolar que se aumente el salario promedio de los profesores se aumenta el gasto promedio en los estudiantes en 3.3 dolares.

Fin del comunicado