Please answer in R Studio Code please!!!

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

attach$($breast$)$

model glm$($as$.$factor$($BenignMalignant$)$ ~ ClumpThickness $+$ CellSizeUniformity $+$ CellShapeUniformity $+$ MarginalAdhesion $+$ SingleEpithelialCell $+$ BareNuclei $+$ BlandChromatin $+$ NormalNucleoli $+$ Mitoses, family $=$ binomial$($link $=$ "logit"$))$

breast$prediction 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

$\}$ else $\{$

breast$prediction$2[$i

$\}$

$\}$

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

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