R butcher axe-nnet 砍掉一个网络。

nnet 对象是从创建的网络包，用于拟合多层感知器模型。

用法

# S3 method for nnet
axe_call(x, verbose = FALSE, ...)

# S3 method for nnet
axe_env(x, verbose = FALSE, ...)

# S3 method for nnet
axe_fitted(x, verbose = FALSE, ...)

参数

x: 一个模型对象。
verbose: 每次执行 ax 方法时打印信息。记录释放了多少内存以及禁用了哪些函数。默认为 FALSE 。
...: 与砍伐相关的任何其他参数。

值

砍掉 nnet 对象。

例子

# Load libraries
library(parsnip)
library(nnet)

# Create and fit model
nnet_fit <- mlp("classification", hidden_units = 2) %>%
  set_engine("nnet") %>%
  fit(Species ~ ., data = iris)

out <- butcher(nnet_fit, verbose = TRUE)
#> ✔ Memory released: 13.22 kB

# Another nnet object
targets <- class.ind(c(rep("setosa", 50),
                       rep("versicolor", 50),
                       rep("virginica", 50)))

fit <- nnet(iris[,1:4],
            targets,
            size = 2,
            rang = 0.1,
            decay = 5e-4,
            maxit = 20)
#> # weights:  19
#> initial  value 112.784345 
#> iter  10 value 59.321119
#> iter  20 value 7.905400
#> final  value 7.905400 
#> stopped after 20 iterations

out <- butcher(fit, verbose = TRUE)
#> ✔ Memory released: 4.95 kB
#> ✖ Disabled: `fitted()`, `predict() with no new data`, and `dimnames(axed_object$fitted.values)`

源代码：R/nnet.R

相关用法

注：本文由纯净天空筛选整理自Davis Vaughan等大神的英文原创作品 Axing a nnet.。非经特殊声明，原始代码版权归原作者所有，本译文未经允许或授权，请勿转载或复制。