REPOSITORIO DEL JUEVES
cONJUNTO DE DATOS
numeros <- seq(1,100, by=1)
Generamos dos muestras al azar que utilizaremos en la regresion lineal
x <- sample(numeros,50)
y <- sample(numeros,50)
modelo de regresion lineal
reg1 <- lm(x~y)
resultado de la regresion
summary(reg1)
grafica
plot(x~y)
abline(reg1)