=======================

> Dataset <- readXL("C:/Users/gfran/Downloads/Examen Final.xlsx", rownames=FALSE, header=TRUE, na="", sheet="Hoja1", stringsAsFactors=TRUE)

Planteamiento de hipótesis

Se plantea la H0: U1 = U2 y la H1: U1 ≠ U2 Donde U1 = Media estatura Málaga, U2 = Media estatura Cadiz

Estadístico t-Test. Muestras Independientes. (Estatura~Ciudad)

> t.test(Estatura~Ciudad, alternative='two.sided', conf.level=.95, var.equal=FALSE, data=Dataset)

    Welch Two Sample t-test

data:  Estatura by Ciudad
t = 0.15154, df = 27.995, p-value = 0.8806
alternative hypothesis: true difference in means between group Cadiz and group Malaga is not equal to 0
95 percent confidence interval:
 -3.337921  3.871255
sample estimates:
 mean in group Cadiz mean in group Malaga 
            173.9333             173.6667

Gráfico Boxplot (Estatura ~ Ciudad)

> Boxplot(Estatura ~ Ciudad, data=Dataset, id=list(method="y"))

Conclusión

No se rechaza hipótesis nula pues p-value reportado > 0.05. La diferencia de medias reportada no es estadísticamente significativa pues se diferencian solo en decimales.El intervalo de confianza al 95% para las diferencias es -3.337921 3.871255.