TO SHOW F= T^2

 TO SHOW F= T^2
mod1=lm(y~x,data=   )
anova=aov(mod1)
> summary(anova)
            Df  Sum Sq Mean Sq F value Pr(>F)  
r$Wealth     1 1340152 1340152   10.88 0.0019 **
Residuals   45 5540775  123128                
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
> summary(mod1)

Call:
lm(formula = r$Crime ~ r$Wealth)

Residuals:
    Min      1Q  Median      3Q     Max
-631.40 -272.84  -46.17  197.25  825.02

Coefficients:
             Estimate Std. Error t value Pr(>|t|)  
(Intercept) -24.28261  286.31386  -0.085   0.9328  
r$Wealth      0.17689    0.05362   3.299   0.0019 **
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 350.9 on 45 degrees of freedom
Multiple R-squared:  0.1948, Adjusted R-squared:  0.1769
F-statistic: 10.88 on 1 and 45 DF,  p-value: 0.001902

> f=3.299^2
> f
[1] 10.8834