Tema elegido

El tema que me correspondio para esta regresion es el de el tiempo de uso de redes sociales, se realizó una encuesta a 100 personas en las que se realizaban preguntas que pudiesen influir en el tiempo diario que estas dedicaban a las redes sociales ## Variables La variable dependiente a estudiar en este caso será el tiempo de so diario que se dedica a las redes sociales, como covariables o variables independientes se formularon las siguientes preguntas: Genero, edad, nivel educativo, horas de ocio al dia, numero de redes sociales, uso principal que se le da, si lo considera adecuado o no, si considera que la aceptacion social esta relacionada a su uso y si actuialmente trabaja

Limpieza de datos

Se realizaron algunas modificaciones al archivo original de excel arrojado como resultado a las encuestas, estas modificaciones en su mayoria se hicieron en correcciones en cuanto a puntos y respuestas mal rellenadas, pero en terminos generales el documento estaba bastante pulido.

Presentacion del modelo

library(readxl) Formulario_sin_título_respuestas_ <- read_excel(“C:/Users/Samuel/OneDrive/Escritorio/Formulario sin título (respuestas).xlsx”)

datos1=Formulario_sin_título_respuestas_

View(datos1)

library(dplyr)

attach(datos1)

names(datos1)

datos<- datos1[,-c(1)]

colnames(datos)=c(“sexo”, “edad”,“nivel_educativo”, “x1”, “x2”, “x3”, “x4”,“x5”,“x6”, “y”) names(datos) attach(datos)

library(tidyverse)

Reg=lm(y~sexo+edad+nivel_educativo+x1+x2+x3+x4+x5+x6)

Reg

summary(Reg)

StepAIC

library(MASS)

stepAIC(Reg, scale = 0, direction = c(“both”))

Mejoras realizadas

Se aplicó el StepAIC, donde R evaluaba cada modelo del peor al mejor.