在rmarkdown中绘制神经网络

Question

我正在使用neuralnet包来训练神经网络。我正在使用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)
```

有什么解决方法吗？

- Rafael Díaz

---

可能是Knitr和绘制神经网络的重复问题。 - Werner

Answer 1

在plot命令中添加rep="best"。如果不这样做，plot.nn会通过不断打开新的图形设备来绘制每个训练时期。

---
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")
```

- d125q