\begin{Schunk}
\begin{Sinput}
 m1 <- lm(PosAFF1 ~ genderf, data = affect)
 summary(m1)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = PosAFF1 ~ genderf, data = affect)

Residuals:
    Min      1Q  Median      3Q     Max 
-2.1522 -0.4087 -0.1134  0.3804  0.8804 

Coefficients:
              Estimate Std. Error t value Pr(>|t|)    
(Intercept)    3.11964    0.04786  65.178   <2e-16 ***
genderffemale  0.03260    0.06860   0.475    0.635    
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.6684 on 378 degrees of freedom
Multiple R-squared:  0.0005973,	Adjusted R-squared:  -0.002047 
F-statistic: 0.2259 on 1 and 378 DF,  p-value: 0.6349
\end{Soutput}
\end{Schunk}
