x<-c(68,88,62,72,60,96,78,46,82,94,68,48)

y<-c(1190,1211,1004,917,770,1456,1180,710,1316,1032,752,963)

m1 <- lm(y~x)

summary(m1)

Which gives me a t-value of 3.301 on the slope

And I understand that I can get a critical value using the following

abs(qt(0.05/2, 10))

which gives 2.28 and indicates that I can reject the null.

But how do I recover the exact p-value of 0.008?