R Notebook

##activity 8
predict(ins_model2,
         data.frame(age = 22, age2 = 22^2, children = 3,
                     bmi = 24, sex = "female", bmi30 = 0,
                   smoker = "no", region = "northwest"))

       1 
5858.241 

##activity 8
         predict(ins_model2,
                 data.frame(age = 22, age2 = 22^2, children = 1,
                     bmi = 27, sex = "male", bmi30 = 0,
                   smoker = "yes", region = "southeast"))   

       1 
17219.31