\begin{Schunk}
\begin{Sinput}
 m1 <- lm(x ~ z + w2, data = dat)
 summary(m1)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = x ~ z + w2, data = dat)

Residuals:
     Min       1Q   Median       3Q      Max 
-132.500  -82.180    9.085   50.083  227.877 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)   
(Intercept)  114.782     42.010   2.732  0.00932 **
zmeanie        8.354     42.119   0.198  0.84378   
zminey       -31.003     41.900  -0.740  0.46366   
zmo           20.530     46.373   0.443  0.66036   
w2g           69.495     45.117   1.540  0.13136   
w2h          147.206     52.430   2.808  0.00768 **
w2i            8.909     49.897   0.179  0.85919   
w2j          109.503     58.473   1.873  0.06843 . 
---
Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 100.8 on 40 degrees of freedom
Multiple R-squared:  0.2233,	Adjusted R-squared:  0.08734 
F-statistic: 1.643 on 7 and 40 DF,  p-value: 0.1516
\end{Soutput}
\end{Schunk}
