May 19

#Taller 18 mayo 2022

#Juan José Alfaro Torres

library(tidyverse) library(GGally)

data(“diamonds”) diamonds %>% View

m4<-lm(data = diamonds,price ~.-cut^4-clarity6-z) summary(m4) ## interpretaciones Tanto el Rcuadrado y el RcuadradoAjustado tienen un valor de 0.8749, es decir que las variables independientes del modelo explican en ese mismo valor los cambios de la variable dependiente

1. Si “Carat” aumenta en 1 el precio aumenta en 20330.218

2.Si color.L aumenta en 1 el precio cae en 1636.277

3.Si color.Q aumenta en 1 el precio cae en 769.291

4. Si color.C aumenta en 1 el precio cae en 113.561

5. Si Color^4 aumenta en 1 el precio aumenta en 92.800

6.Si color^5 aumenta en 1 el precio cae en 146.864

7. Si color^6 aumenta en 1 el precio cae en 161.449

8.Si depth aumenta en 1 el precio cae en 194.472

9. Si table aumenta en 1 el precio cae en 101.289

10. Si x aumenta en 1 el precio cae en 1446.022

11. Si y aumenta en 1 el precio aumenta en 66.251

Todas las variables tienen significancia, en su mayoria del 1% es decir que es un nivel de significancia fuerte, las que no tenian significancia se retiraron.