\begin{Schunk}
\begin{Sinput}
 t.test(x = affect$PosAFF1, y = affect$PosAFF2)
\end{Sinput}
\begin{Soutput}
	Welch Two Sample t-test

data:  affect$PosAFF1 and affect$PosAFF2
t = 2.9527, df = 757.5, p-value = 0.003247
alternative hypothesis: true difference in means is not equal to 0
95 percent confidence interval:
 0.0485643 0.2412378
sample estimates:
mean of x mean of y 
 3.135516  2.990615 
\end{Soutput}
\end{Schunk}
