【R笔记】R机器学习（十四）——BP神经网络

刺骨的言语ヽ痛彻心扉 2022-06-11 07:23 383阅读 0赞

## 前言 ##

本文基于R实现BP神经网络用以预测，输入属性有三个，输出属性一个，隐藏层设置20个神经元，数据如下：

![70][]

## 代码 ##

library(grid)    
    library(MASS)
    library(neuralnet) #加载相应的程序包，这里用的是neuralnet，还可以用nnet、tensorflow实现
    p <- matrix(c(80.0,90.0,180.0,140.0,3.0,8.0,20.0,16.0,50.0,70.0,120.0,90.0),4,3,byrow = T)
    t <- c(11.0,12.5,20.0,18.0)
    trainingdata <- cbind(p,t) #合并数据集
    trainingdata
    colnames(trainingdata) <- c("Input1","Input2","Input3","Output")
    net <- neuralnet(Output~Input1+Input2+Input3,trainingdata, hidden=20, threshold=0.005, learningrate = 0.1, algorithm = "rprop+", err.fct = "sse", act.fct = "logistic")  #建立神经网络模型解决回归预测，三个输入，一个输出，隐藏层20个神经元，阈值为0.005，学习率为0.1，选用rprop+方法进行参数优化，损失函数SSE，激活函数logistic  
    print(net)   
    plot(net)   #画网络图
    testdata <- matrix(c(120.0,5.0,85.0),1,3,byrow = T) #建立测试集
    net.results <- compute(net, testdata)   #利用训练好的模型进行预测
    ls(net.results)   
    print(net.results$net.result)  #输出预测值

### 网络图 ###

![70 1][]

[70]: /images/20220611/2f68583bc2834ca1a86e3cc57518eb7e.png
[70 1]: /images/20220611/29f41d8a3c034c6c805409c377ebf590.png

发表评论取消回复

表情：

评论列表（有 0 条评论，383人围观）

还没有评论，来说两句吧...

相关阅读

相关遗传算法优化bp神经网络R语言代码

遗传算法(Genetic Algorithm，GA)是一种优化算法，能够在搜索空间中寻找最优解。BP神经网络(Backpropagation Neural Network)是一

亦凉/ 2024年03月25日 14:50/ 0 赞/ 129 阅读

相关神经网络学习之 BP神经网络

上一次我们讲了[M-P模型][M-P]，它实际上就是对单个神经元的一种建模，还不足以模拟人脑神经系统的功能。由这些人工神经元构建出来的网络，才能够具有学习、联想、记忆和模式识别

灰太狼/ 2022年08月18日 00:40/ 0 赞/ 819 阅读

相关【R笔记】基于R构建tensorflow框架实现神经网络

实现代码 library(tensorflow) Create 100 phony x, y data points, y = x 0.1

骑猪看日落/ 2022年06月12日 12:11/ 0 赞/ 226 阅读

相关【R笔记】R机器学习（十四）——BP神经网络

前言本文基于R实现BP神经网络用以预测，输入属性有三个，输出属性一个，隐藏层设置20个神经元，数据如下： ![70][] 代码 library(

刺骨的言语ヽ痛彻心扉/ 2022年06月11日 07:23/ 0 赞/ 384 阅读

相关【R笔记】R机器学习（三）——多元回归

环境 Mac OS 数据代码 setwd("path") data<-read.csv("regression.csv",T)

快来打我*/ 2022年06月09日 11:29/ 0 赞/ 207 阅读

相关【R笔记】R机器学习（四）——logistics回归模型

数据数据下载地址：代码 w = read.csv('data.csv') a = glm(y~.,w,family='binomial')

超、凢脫俗/ 2022年06月08日 12:27/ 0 赞/ 437 阅读

相关【R笔记】R机器学习（二）——非线性回归

数据代码 setwd("path") data<-read.csv("regression.csv",T) data[]

柔光的暖阳◎/ 2022年06月08日 10:52/ 0 赞/ 223 阅读

相关 [机器学习]BP神经网络 java实现

代码转载处 https://www.cnblogs.com/hesi/p/7218602.html 对他文章的代码进行了修改优化代码如下 package

阳光穿透心脏的1/2处/ 2022年05月30日 02:25/ 0 赞/ 343 阅读

相关机器学习 | 神经网络 —— BP神经网络（反馈神经网络：方向传播算法）

目录 1.反馈神经网络原理及公式推导 2.反馈神经网络原理与公式推导 2.1 原理 2.2 公式推导 2.2.1 定义一：前项传播算法 2.2.2 定义二：反向传播

我不是女神ヾ/ 2022年04月01日 06:19/ 0 赞/ 1068 阅读

相关 R语言神经网络

R语言中已经有许多用于神经网络的package。例如nnet、AMORE以及neuralnet，nnet提供了最常见的前馈反向传播神经网络算法。 AMORE包则更进一步提供了

小灰灰/ 2021年12月14日 07:41/ 0 赞/ 446 阅读