Follow steps given in Machine Learning With R Chapter 6, Section "Example Predicting Medical Expenses Using Linear Regression."

The insurance.csv file can be found here.

You will prepare a brief that reports the outcomes of the following steps:

• summary(insurance$bmi)
• pairs.panels(insurance[c("age", "bmi", "children", "charges")])
• insurance$bmi2 <-insurance$bmi^2
• ins_model3 <- lm(charges ~ age + children + bmi +sex + + region, data = insurance)
• summary(ins_model3)