# Assuming 'Thyroid' is your data frame

# Combine 'referral$\_$source' values into two categories

Thyroid$referral$\_$source $<-$ ifelse$($Thyroid$referral$\_$source $==$ "SVI", "SVI", "Other"$)$

# Convert the response variable 'target' to a factor

Thyroid$target $<-$ as$.$factor$($Thyroid$target$)$

# Perform logistic regression

logistic$\_$model $<-$ glm$($target ~ $.,$ data $=$ Thyroid$[,-$ncol$($Thyroid$)],$ family $=$ "binomial"$)$

# Display the summary of the logistic regression

summary$($logistic$\_$model$)$