x <- runif(100,0,5)
y <- x*0.5 + rnorm(length(x))
summary(lm(y~x))

Call:
lm(formula = y ~ x)

Residuals:
    Min      1Q  Median      3Q     Max
-2.4815 -0.6413  0.1720  0.6167  3.1338

Coefficients:
            Estimate Std. Error t value Pr(>|t|)
(Intercept) -0.27168    0.20488  -1.326    0.188
x            0.61228    0.07341   8.341 4.73e-13 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 1.037 on 98 degrees of freedom
Multiple R-squared:  0.4152,    Adjusted R-squared:  0.4092
F-statistic: 69.57 on 1 and 98 DF,  p-value: 4.725e-13