breast$=$read. 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$))$

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

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

Your goal is to write a script in R that will take the $2$x$2$ table in R for your logistic regression results in HW $2$ and use it to derive those measurements.