Need help on completing assignments in coursera

-
-
-
3/5/2022
library(magrittr)
library(dplyr)
library(ggplot2)
library(rmarkdown)
library(knitr)
library(data.table)
library(testthat)
library(tidyverse)
library(MASS)
apple.data = read.table("New folder (2)/applejuice.dat", header=TRUE)
attach(apple.data);
names(apple.data) = c("pH", "nisin", "temp", "brix", "growth")
apple.data$growth = as.factor(apple.data$growth)
head(apple.data)
## pH nisin temp brix growth
## 1 5.5 70 43 19 0
## 2 5.5 50 43 13 1
## 3 5.5 50 35 15 1
## 4 5.5 30 35 13 1
## 5 5.5 30 25 11 0
## 6 5.5 0 50 19 0
glmod.apple = NA
# your code here # CORRECT
glmod.apple <- glm(growth~.,data=apple.data, family=binomial)
summary(glmod.apple)
##
## Call:
## glm(formula = growth ~ ., family = binomial, data = apple.data)
##
## Deviance Residuals:
## Min 1Q Median 3Q Max
## -2.3245 -0.4325 -0.1415 0.5308 1.5593
##
## Coefficients:
## Estimate Std. Error z value Pr(>|z|)
## (Intercept) -7.68363 3.28201 -2.341 0.019225 *
## pH 2.04908 0.57481 3.565 0.000364 ***
## nisin -0.06273 0.01910 -3.283 0.001026 **
## temp 0.12532 0.05079 2.467...