## Ejercicio 1 clase del 15 de octubre de 2012.  prueba de diferencia de
## muestras alrededor de delta_zero (δ_cero).

## δ_cero es la diferencia teórica aceptable.

n1 = 106
n2 = 102

x1bar = 2.7

x2bar = 2.63

δ_cero = 0

## Sp es Spool.

## Spsquared = ( sum((x1 - x1bar)^2) + sum((x2 - x2bar)^2) )/(n1 + n2 -2)
## ## Sp al cuadrado.

## [Es la expresión general]. Para este ejemplo: Spsquared =
## ((s1^2)*(n1-1) + (s2^2)*(n2-1)) /(n1 + n2 -2)

s1 = 0.65
s2 = 0.71

(Spsquared = ((s1^2) * (n1 - 1) + (s2^2) * (n2 - 1))/(n1 + n2 - 2))

## [1] 0.4625

t = ((x1bar - x2bar) - δ_cero)/sqrt(Spsquared * ((1/n1) + (1/n2)))

(df = n1 + n2 - 2)

## [1] 206

(t = qt(0.95, df))  ## Proporcionar grados de Libertad!

## [1] 1.652

## Ho = No hay diferencia significativa en la diferencia de medias de las
## muestras t es menor que t.95 por lo que NO se rechaza la Ho.