rbf neural network in R

最新推荐文章于 2025-06-23 13:08:01 发布

原创

最新推荐文章于 2025-06-23 13:08:01 发布 · 2.1k 阅读

6 ·

CC 4.0 BY-SA版权

文章标签：

#神经网络 #rbf神经网络 #r语言 #拟合

本文介绍了使用R语言实现RBF神经网络来拟合非线性曲线的过程。由于RBF网络对初始参数敏感，作者采用了K-means聚类进行初始化。

之前工作用到神经网络拟合nonliear curve
语言用的R语言
找不到源码所以自己参照别人的matlab 代码实现了一个
RBF网络具体介绍见参考文章
参考文章

RBF网络对初始参数设置比较敏感
所以对初始delta 和 center 我利用了kmean 聚类初始化

library(dplyr)
library(data.table)
rbf <- NULL
#Guassian径向基函数
Green <- function(x, c, delta){
        greenValue <- exp(-1.0 * sum((x - c)^2) / (2 * delta^2))
}
hiddenSize <- 2
# cols <- 5
# rows <- 7
# train.x <- matrix(runif(cols * rows), ncol = 1)
# train.y <- matrix(runif( cols * rows), ncol = 1)
 x <- seq(0,3.14*2, by = 0.01)
 y <- sin(x) + runif(length(x))
train.x <- x %>% data.matrix()
train.y <- y %>% data.matrix()

kmeans.parameters <- kmeans(train.x, hiddenSize)

init.centers <- kmeans.parameters$centers
init.delta <- kmeans.parameters$withinss/kmeans.parameters$size + 0.2

rbf$hiddenSize <- hiddenSize
rbf$inputSize <- ncol(train.x)
rbf$outputSize <- ncol(train.y)
rbf