\begin{Schunk}
\begin{Sinput}
 t.test(PosAFF1 ~ genderf, data = affect, var.equal = TRUE)
\end{Sinput}
\begin{Soutput}
	Two Sample t-test

data:  PosAFF1 by genderf
t = -0.47529, df = 378, p-value = 0.6349
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 -0.1674855  0.1022776
sample estimates:
  mean in group male mean in group female 
            3.119643             3.152247 
\end{Soutput}
\end{Schunk}
