#Guillermo Almazan Vasquez - A00841356 x = c(30,40,30,40,30,40,30,40,30,40,30,40,30,40,30,40,25,45,35,35,35,35,35,35,35,35,35,35,35) x2 = c(60,60,90,90,60,60,90,90,60,60,90,90,60,60,90,90,75,75,45,105,75,75,75,75,75,75,75,75,75) x3 = c(175,175,175,175,225,225,225,225,175,175,175,175,225,225,225,225,200,200,200,200,150,250,200,200,200,200,200,200,200) x4= c(15,15,15,15,15,15,15,15,25,25,25,25,25,25,25,25,20,20,20,20,20,20,10,30,20,20,20,20,20) y = c(26.2,26.3,39.8,39.7,38.6,35.5,48.8,37.8,26.6,23.4,38.6,52.1,39.5,32.3,43,56,35.2,469,22.7,58.7,34.5,44,35.7,41.8,36.5,37.6,40.3,46,27.8) cor.test(x, x2, alternative = “two.sided”, method = “pearson”, conf.level = .95 ) cor.test(x, x3, alternative = “two.sided”, method = “pearson”, conf.level = .95 ) cor.test(x, x4, alternative = “two.sided”, method = “pearson”, conf.level = .95 ) cor.test(x2, x3, alternative = “two.sided”, method = “pearson”, conf.level = .95 ) cor.test(x2, x4, alternative = “two.sided”, method = “pearson”, conf.level = .95 ) cor.test(x3, x4, alternative = “two.sided”, method = “pearson”, conf.level = .95 ) a=lm(y~x+x2+x3+x4) summary(a) a=lm(y~x+x2+x3) summary(a) a=lm(y~x+x2) summary(a) a=lm(y~x) summary(a) shapiro.test(a\(residuals) t.test(a\)residuals) qqnorm(a\(residuals) qqline(a\)residuals)

#Se rechaza la hipotesis nula ya que las pruebas arrojan que la media es diferente de cero.