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.。非經特殊聲明，原始代碼版權歸原作者所有，本譯文未經允許或授權，請勿轉載或複製。