Can we predict heart disease if we know the data of biking and smoking?
## function (..., list = character(), package = NULL, lib.loc = NULL, verbose = getOption("verbose"),
## envir = .GlobalEnv, overwrite = TRUE)##
## Call:
## lm(formula = heart.disease ~ biking + smoking, data = Data)
##
## Residuals:
## Min 1Q Median 3Q Max
## -2.2347 -0.4309 0.0200 0.4019 4.6137
##
## Coefficients:
## Estimate Std. Error t value Pr(>|t|)
## (Intercept) 14.809411 0.099827 148.35 <2e-16 ***
## biking -0.196625 0.001926 -102.11 <2e-16 ***
## smoking 0.177588 0.004344 40.88 <2e-16 ***
## ---
## Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
##
## Residual standard error: 0.6886 on 397 degrees of freedom
## Multiple R-squared: 0.9643, Adjusted R-squared: 0.9642
## F-statistic: 5368 on 2 and 397 DF, p-value: < 2.2e-16
