Code in R Studio $($partial data included in photo with values ranging from True$/$False and A$-$F$)\backslash$table$[[$accepted$,$female,department$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$],[$TRUE$,$FALSE,A$]]$: # Students who intend to use the predict$(...)$ function for these$$# problems are advised to consult the documentation in$$# $?$predict.glm to determine how it is used for different types of $$# predictions in the context of logistic regression.$$# Do not edit the following$$BerkeleyDataread.csv$("$BerkeleyData$.$csv$")$# Do not edit the above$$# Fit a logistic regression model that predicts acceptance$$# based on the sex of the applicant.$$# Save the model as model.q$1.$# Note for autograder: You must fit this model using the format$$# glm$($var$1$~var$2+...,$ data$=$BerkeleyData$)$; do not rename variables in$$# the data frame.$$model$.$qglm$($accepted~$1,$ data$=$BerkeleyData, family$=$'binomial'$)$# What are the log$-$odds of being accepted for a male applicant?$$# Save your answer in the variable q$1.$a$$q$1.$aNA$$# What are the odds of being accepted for a female applicant?$$# Save your answer in the variable q$1.$b$$q$1.$bNA$$# What is the probability of being accepted for a male applicant?$$# Save your answer in the variable q$1.$c$$q$1.$cNA$$# What is the probability of being accepted for a female applicant?$$# Save your answer in the variable q$1.$d$$q$1.$dNA$$# $($Hidden answer$)$ Based on this model, without considering other variables, $$# does it appear that there is a statistically significant gender disparity $$# in the admissions of Berkeley?$$# Answer TRUE or FALSE$$# Save your answer in the variable q$1.$e$$q$1.$eNA