TRABAJO

library(tidyverse) library(readxl)

datos <- read_excel(“saber_11.xlsx”)

str(datos)

datos <- datos %>% mutate( GENERO = as.factor(GENERO), SI_TIENE_ETNIA = as.factor(SI_TIENE_ETNIA), DEPARTAMENTO_DE_RESIDENCIA = as.factor(DEPARTAMENTO_DE_RESIDENCIA), ESTRATO_DE_LA_VIVIENDA = as.factor(ESTRATO_DE_LA_VIVIENDA), TIPO_DE_COLEGIO = as.factor(TIPO_DE_COLEGIO), CALENDARIO = as.factor(CALENDARIO) )

head(datos)

modelo <- lm( PUNTAJE_GLOBAL ~ GENERO + SI_TIENE_ETNIA + DEPARTAMENTO_DE_RESIDENCIA + ESTRATO_DE_LA_VIVIENDA + TIPO_DE_COLEGIO + CALENDARIO + PUNTAJE_EN_LECTURA_CRITICA + PUNTAJE_EN_MATEMATICAS + PUNTAJE_EN_CIENCIAS_NATURALES + PUNTAJE_EN_SOCIALES_Y_CIUDADANAS + PUNTAJE_EN_INGLES, data = datos )

summary(modelo)