Use the script below to "create a" multivariate logistic regression model for the 0-1 dependent variable insuranceclaim in the insurance dataset.(Insurance.csv) # Pastable script; ins <- read.csv("insurance.csv"); attach(ins); LR1 <- glm(insuranceclaim ~ ., data = ins, family = "binomial"); round(exp(cbind(OR = coef(LR1), confint(LR1))), 3); library(gplots); plotmeans(insuranceclaim ~ children); (a) What is the largest odds ratio (OR) for any of the independent variables? -Round answers to 3 decimals places, like 1.234 The variable children is associated with the largest reduction in insuranceclaim risk. (b) What is an upper 95% confidence limit for its OR? -Round answers to 3 decimals places, like 1.234

Only Typing answer

Not a picture