Introduction

Example explanation

The code

set.seed(123)
df <- data.frame(Cholesterol = round(rnorm(500,mean = 180,sd = 20),digits = 0))
mean(df$Cholesterol)
## [1] 180.694
sd(df$Cholesterol)
## [1] 19.44285
ci <- predict(lm(df$Cholesterol ~ 1),
              interval = "confidence")
ci[1,]
##      fit      lwr      upr 
## 180.6940 178.9856 182.4024
pi <- predict(lm(df$Cholesterol ~ 1),
              interval = "predict")
## Warning in predict.lm(lm(df$Cholesterol ~ 1), interval = "predict"): predictions on current data refer to _future_ responses
pi[1,]
##      fit      lwr      upr 
## 180.6940 142.4559 218.9321