R语言——一秒Logistic回归分析

话不多说，盘它

代码：

// 小龙虾：简易Logistic回归共享分析
// 直接复制进R.Studio，编译即可

# Read in Data
# myfile<-read.csv(file.choose(),header=FALSE) 
install.packages("AER")
library(AER)
data(CreditCard)
View(CreditCard)
summary(CreditCard)

bankcard <- CreditCard
write.csv(bankcard,file = "bankcard.csv")

# 一次生成训练和测试数据集
set.seed(102)
select <- sample(1:nrow(bankcard),nrow(bankcar