fork download
  1. q5_x=c(13.1,15.3,25.8,1.8,4.9,55.4,39.3,26.7,47.5,6.6,94.7,61.1,135.6,47.6)
  2. q5_y=c(27.3,42.4,38.7,4.5,23.0,166.3,109.7,80.1,150.7,20.3,189.7,131.3,404.2,149.0)
  3. model = lm(q5_y ~ q5_x)
  4. summary(model)
Success #stdin #stdout 0.25s 41272KB
stdin
Standard input is empty
stdout
Call:
lm(formula = q5_y ~ q5_x)

Residuals:
    Min      1Q  Median      3Q     Max 
-64.903  -4.925   4.233  16.150  39.103 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)  -1.2338    11.2579   -0.11    0.915    
q5_x          2.7016     0.2053   13.16 1.72e-08 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

Residual standard error: 27.88 on 12 degrees of freedom
Multiple R-squared:  0.9352,	Adjusted R-squared:  0.9298 
F-statistic: 173.1 on 1 and 12 DF,  p-value: 1.724e-08