R Notebook

xx = c(1, 2, 2, 1)
yy = c(1.1, 2, 2.9, 4.2)
ols = lm(yy~xx)
summary(ols)

Call:
lm(formula = yy ~ xx)

Residuals:
    1     2     3     4 
-1.55 -0.45  0.45  1.55 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)
(Intercept)    2.850      2.552   1.117    0.380
xx            -0.200      1.614  -0.124    0.913

Residual standard error: 1.614 on 2 degrees of freedom
Multiple R-squared:  0.007619,  Adjusted R-squared:  -0.4886 
F-statistic: 0.01536 on 1 and 2 DF,  p-value: 0.9127