R

#1
setwd("C:/Users/GeFeSTt/Desktop")
bank = read.table(file = "C:/Users/GeFeSTt/Desktop/bank.csv", header = TRUE, sep = ",")
attach(bank)
#2
bank$age = ((bank$age - mean(bank$age))/sd(bank$age))
bank$balance = ((bank$balance - mean(bank$balance))/sd(bank$balance))
bank$day = ((bank$day - mean(bank$day))/sd(bank$day))
bank$duration = ((bank$duration - mean(bank$duration))/sd(bank$duration))
bank$campaign = ((bank$campaign - mean(bank$campaign))/sd(bank$campaign))
bank$pdays = ((bank$pdays - mean(bank$pdays))/sd(bank$pdays))
bank$previous = ((bank$previous - mean(bank$previous))/sd(bank$previous))
train = sample(1:nrow(bank), nrow(bank)*0.7)
trset = bank[train,]
testset = bank[-train,]
trset.y = y[train]
#3
clas1 = glm(bank$y ~ bank$age+bank$balance+bank$day+bank$duration+bank$campaign+bank$pdays+bank$previous, family = binomial)
summary(clas1)
clas11 = predict(clas1, type = "response")
clas111 = rep("yes", 4521)
clas111[clas11 < 1] = "no"
table(clas111, y)
clas2 = knn(trset, testset, trset.y, k = 3, prob=TRUE)