在rmarkdown中绘制神经网络

在rmarkdown中绘制神经网络,r,rstudio,r-markdown,R,Rstudio,R Markdown,我正在使用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(ca

我正在使用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)
```
---
标题:“神经网络”
作者:“红色”
日期:“`r Sys.date()`”
输出:
html_文件:
toc:是的
---
```{r}
图书馆(neuralnet)
数据(推断,包=“数据集”)
net.infert将
rep=“best”
添加到
plot
命令中。如果不这样做,
plot.nn
会不断地绘制每个训练历元

---
标题:“神经网络”
作者:“红色”
日期:“`r Sys.date()`”
输出:
html_文件:
toc:是的
---
```{r}
图书馆(neuralnet)
数据(推断,包=“数据集”)
net。推断可能的重复项
---
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")
```