\begin{Schunk}
\begin{Sinput}
 reg.mod.2b <- lm(posAffect ~ 0 + gender, data = dat)
 summary(reg.mod.2b)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = posAffect ~ 0 + gender, data = dat)

Residuals:
     Min       1Q   Median       3Q      Max 
-2.10992 -0.35609 -0.01197  0.47724  0.97724 

Coefficients:
             Estimate Std. Error t value Pr(>|t|)    
gendermale    3.02276    0.04518   66.91   <2e-16 ***
genderfemale  3.10992    0.04638   67.05   <2e-16 ***
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.6309 on 378 degrees of freedom
Multiple R-squared:  0.9596,	Adjusted R-squared:  0.9594 
F-statistic:  4486 on 2 and 378 DF,  p-value: < 2.2e-16
\end{Soutput}
\end{Schunk}
