在 rmarkdown 中绘制神经网络

Question

我正在使用神经网络包来训练神经网络。我使用的是 rmarkdown html 格式，但是在打印的那一刻没有显示绘图。

---
title: "neuralnet"
author: "RED"
date: "`r Sys.Date()`"
output: 
  html_document: 
    toc: yes
---

```{r}
library(neuralnet)
data(infert, package="datasets")
net.infert <- neuralnet(case~parity+induced+spontaneous, infert, 
                    err.fct="ce", linear.output=FALSE, likelihood=TRUE)
```

```{r}
plot(net.infert)
```

知道如何解决这个问题。

Answer 1

将rep="best" 添加到plot 命令。如果您不这样做，plot.nn 会通过不断地opening new graphics devices 绘制每个训练时期。

---
title: "neuralnet"
author: "RED"
date: "`r Sys.Date()`"
output: 
  html_document: 
    toc: yes
---

```{r}
library(neuralnet)
data(infert, package="datasets")
net.infert <- neuralnet(case~parity+induced+spontaneous, infert, 
                    err.fct="ce", linear.output=FALSE, likelihood=TRUE)
```

```{r}
plot(net.infert, rep="best")
```