T_tests_practice

Leyendo los datos

1. Copiar el set de datos (Ctrl + C) como se muestra en el ejempo de la figura abajo

2. Importar con el comando read.table(...) y darle formato a los factores (variables categóricas)

ej <- read.table("clipboard", header=TRUE)
str(ej)

'data.frame':   14 obs. of  2 variables:
 $ kg   : num  85.6 78 57.2 49.3 46.3 ...
 $ grupo: chr  "a" "b" "b" "a" ...

ej$grupo <- as.factor(ej$grupo)
str(ej)

'data.frame':   14 obs. of  2 variables:
 $ kg   : num  85.6 78 57.2 49.3 46.3 ...
1 2 2 1 1 2 1 2 2 2 ...

3. Gráfico utilizando la fórmula Y~X

plot(ej$kg ~ ej$grupo)

T test

Verificar cuál es la hipótesis alternativa (hipótesis de trabajo) pra especificarla en la prueba de T.

t.test(ej$kg ~ ej$grupo, alternative= "less")

    Welch Two Sample t-test

data:  ej$kg by ej$grupo
t = -0.22576, df = 11.461, p-value = 0.4127
alternative hypothesis: true difference in means is less than 0
95 percent confidence interval:
     -Inf 19.66845
sample estimates:
mean in group a mean in group b 
       37.76571        40.60571 

Interpretar y concluir

El segundo grupo no obtiene una ganancia de peso mayor que el primer grupo (P= 0.4127)