insur

insurance<-read.csv(“insurance2.csv”) insurance %>% glimpse insurance\(smoker<-as.factor(insurance\)smoker) insurance\(sex<-as.factor(insurance\)sex) IDX<-createDataPartition(y=insurance$charges,p=0.7,list=FALSE) train<-insurance[IDX,] test<-insurance[-IDX,]

train %>% mutate(index=“train”)->train test %>% mutate(index=“test”)->test bind_rows(train,test)->full

full %>% glimpse colSums(is.na(full))

recipe(charges~.,data=full) %>% step_YeoJohnson(age,bmi,children) %>% step_center(age,bmi,children) %>% step_center(age,bmi,children) %>% prep() %>% juice()->data data %>% filter(index==“train”) %>% select(-index)->df_train data %>% filter(index==“test”) %>% select(-index)->df_test class(lmfit)

ctrl<-trainControl(method=“cv”,number=10) train(charges~.,data=df_train, method=“lm”, trControl=ctrl)->LM LM predict(LM,df_test)->lmfit