insure=read.csv(choose.files(),header = TRUE)
insure
View(insure)
dg=ggplot(data=insure,aes(x=age,y=charges,color=region))+geom_point()+geom_smooth()
dg
set.seed(12345)
insure2=subset(insure,select = -c(region))
View(insure2)
partss=createDataPartition(insure2$smoker,p=0.75,list=F)
partss
train7=insure2[partss,]
train7
test7=insure2[-partss,]
test7
na.omit(insure2)
is.na(insure2)
dim(train7)
table(insure2)
dim(test7)
modelfit7=train(as.factor(smoker)~.,data=train7,method="glm")
modelfit7
prediction7=predict(modelfit7,data=test7)
prediction7
prediction7b=confusionMatrix(prediction7,as.factor(test7$smoker))
prediction7b