сюжет нейронной сети в 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 строит графики каждой эпохи обучения , постоянно открывая новые графические устройства .

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