机器学习第九周作业使用R语言建立BP神经网络

数据地址:http://archive.ics.uci.edu/ml/machine-learning-databases/statlog/german/

 

library(AMORE)

# 数据载入及处理
dat <- read.table('german.data-numeric', header=F)
for (i in 1:25) {
dat[,i] <- as.numeric(as.vector(dat)[,i])
}

# 划分训练集和测试集
train_dat <- dat[1:500,]
test_dat <- dat[501:1000,]

# 进行训练
net <- newff(n.neurons=c(24,8,2,1), learning.rate.global=1e-2, momentum.global=0.5,
        error.criterium="LMS", Stao=NA, hidden.layer="tansig",
        output.layer="purelin", method="ADAPTgdwm")
result <- train(net, train_dat[1:24], train_dat[25], error.criterium="LMS", report=TRUE, show.step=100, n.shows=5 )

# 进行测试
y <- sim(result$net, test_dat[1:24])
y[which(y<1.5)] <- 1
y[which(y>=1.5)] <- 2

# 计算正确率
sum = 0
for(i in 1:500){
if(y[i]==test_dat[i,25]){
sum =sum+1
}
}
cat("正确率", sum/500, "n")

 

执行结果为

正确率 0.71

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值