Actividad 4

Pregunta de investigación

¿La longitud promedio del pétalo (Petalo_largo) es diferente entre Virginica y Versicolor?

H₀ (nula): μ_Virginica = μ_Versicolor

Hₐ (alternativa): μ_Virginica ≠ μ_Versicolor

Nivel de significancia: α = 0.05

Tipo de contraste: bilateral (dos colas)

Prueba: t de Student (dos muestras independientes)

Base

datos <- read.csv("/Users/pilarmendez/Downloads/a4_iris_limpia.csv")

Vectores para el análisis

virginica_petalo   <- datos$Petalo_largo[datos$Variedad == "Virginica"]
versicolor_petalo  <- datos$Petalo_largo[datos$Variedad == "Versicolor"]

length(virginica_petalo)

## [1] 50

length(versicolor_petalo)

## [1] 50

mean(virginica_petalo)

## [1] 5.552

mean(versicolor_petalo)

## [1] 4.26

sd(virginica_petalo)

## [1] 0.5518947

sd(versicolor_petalo)

## [1] 0.469911

Prueba de homogeneidad (varianzas)

var.test(virginica_petalo, versicolor_petalo)

## 
##  F test to compare two variances
## 
## data:  virginica_petalo and versicolor_petalo
## F = 1.3794, num df = 49, denom df = 49, p-value = 0.2637
## alternative hypothesis: true ratio of variances is not equal to 1
## 95 percent confidence interval:
##  0.7827605 2.4307127
## sample estimates:
## ratio of variances 
##           1.379372

Prueba t

prueba_t2 <- t.test(
  virginica_petalo,
  versicolor_petalo,
  alternative = "two.sided",
  var.equal = TRUE,
  conf.level = 0.95)

prueba_t2

## 
##  Two Sample t-test
## 
## data:  virginica_petalo and versicolor_petalo
## t = 12.604, df = 98, p-value < 2.2e-16
## alternative hypothesis: true difference in means is not equal to 0
## 95 percent confidence interval:
##  1.088574 1.495426
## sample estimates:
## mean of x mean of y 
##     5.552     4.260

# Conclusion

Existe evidencia estadística de que el promedio del largo del pétalo difiere entre Virginica y Versicolor. Siendo Virginica quien tiene mayores longuitudes del pétalo.