Use this R script code to answer these $4$ formulas.

breast$=$read.csv$($file$.$choose$(""),$header$=$TRUE$)$

attach$($breast$)$

model$2=$glm$($as$.$factor$($BenignMalignant$)$~ClumpThickness$+$CellSizeUniformity$+$CellShapeUniformity

$+$MarginalAdhesion$+$SingleEpithelialCell$+$BareNuclei$+$

BlandChromatin$+$NormalNucleoli$+$Mitoses,

family$=$binomial$($link$=$"logit"$))$

breast$prediction$2=$exp$($predict$($model$2,$breast$))/1+$exp$($predict$($model$2,$breast$))$

for$($i in $1$:$699)\{$

if$($breast$prediction$2[$i$]>0\mathrm{.}5)\{$

breast$prediction$2[$i$]=4$

$\}$

else$($breast$prediction$2[$i$]=2)$

$\}$

table$($as$.$factor$($breast$BenignMalignant$),$as$.$factor$($breast$prediction$2))$

table$($as$.$factor$($breast$prediction$),$as$.$factor$($breast$prediction$2))$