- library(nnet)
- library(neuralnet)
- data(iris)
- X <- iris[, 1:4]
- y <- iris$Species
- output <- class.ind(y)
- colnames(output) <- paste0('out.', colnames(output))
- output.names <- colnames(output)
- input.names <- colnames(X)
- train <- cbind(iris, output)
- f <- paste(paste(output.names, collapse = '+'), '~',
- paste(input.names, collapse = '+'))
- net <- neuralnet(f, train, hidden = rep(3, 2))
- plot(net)
其中的 f 就是生成的公式,,不过我这里最后使用的是 neuralnet 包做的神经网络,个人更推荐使用这个包。



雷达卡




京公网安备 11010802022788号







