# Statistics Lab mathematics M8 - fictional calculation
x <- c(1,2,3)
y <- c(2,4,5)
fit <- lm(y ~ x)
coef(fit)
residuals(fit)
c(covariance=cov(x,y), correlation=cor(x,y), r_squared=summary(fit)$r.squared)
# Association and fit do not prove causation.