R Insurance file ACT 8

getwd()

[1] "/cloud/project"

predict(ins_model2,
        data.frame(age = 22, age2 = 22^2, children = 3,
                   bmi = 24, sex = "female", bmi30 = 0,
                   smoker = "no", region = "northeast")) #from activity 8 this is more expensive for this one than Activity 2 Younger drivers pay more 

       1 
6137.407 

predict(ins_model2,
        data.frame(age = 22, age2 = 22^2, children = 1,
                   bmi = 27, sex = "male", bmi30 = 0,
                   smoker = "yes", region = "southeast")) #from activity 8 this is more expensive for this one than Activity 2 Younger drivers  who more pay more 

       1 
17219.31