I have the following R output with several values omitted. I am trying to find what the t value of two estimates, $\widehat{B}_0$, $\widehat{B}_1$
1 > summary(lm(y ~ x))
2 Coefficients:
3 Estimate Std. Error t value Pr(>|t|)
4 (Intercept) -10.805 XXXXX XXXXX XXXXX
5 x 3.463 XXXXX XXXXX XXXXX
6 ---
7 Signif. codes: 0 ’***’ 0.001 ’**’ 0.01 ’*’ 0.05 ’.’ 0.1 ’ ’ 1
8
9 Residual standard error: 38.82 on 45 degrees of freedom
10 Multiple R-squared: XXXXX, Adjusted R-squared: XXXXX
11 F-statistic: XXXXX on 1 and 45 DF, p-value: 0.01027
12
13 > sig.hat<-summary(lm(y x))$sigma
14 > X<-cbind(1,x)
15 > sig.hatˆ2*solve(t(X) %*% X)
16 x
17 32.4213203 0.7787438
18 x 0.7787438 1.6709619
19 > (SST<-sum((y-mean(y))ˆ2))
20 [1] 78620.22
I know that $t_j = \dfrac{\widehat{B}_j}{\operatorname{e.s.e}(\widehat{B}_j)}$, but since $\operatorname{e.s.e}(\widehat{B}_j)$ is missing as well, I am not sure how to calculate the t values.