r - R 神经包：无法运行 mlp 示例？

Question

我正在尝试学习我认为与其他人相比简单的神经包。我尝试运行相应文档中给出的以下示例：

https://cran.r-project.org/web/packages/neural/neural.pdf （第 5 页）。

library(neural)

x<-matrix(c(1,1,0,0,1,0,1,0),4,2)
y<-matrix(c(0,1,1,0),4,1)
neurons<-4
data<-mlptrain(x,neurons,y,it=4000)
mlp(x,data$weight,data$dist,data$neurons,data$actfns)

该脚本产生此错误：

Error in if ((!visual) | (coor$x > 640) & (coor$x < 700) & (coor$y > 650) &  : 
  argument is of length zero
Calls: mlptrain
Execution halted

会话信息：

sh: 1: cannot create /dev/null: Permission denied
R version 3.4.4 (2018-03-15)
Platform: x86_64-pc-linux-gnu (64-bit)

Matrix products: default
BLAS: /usr/lib/atlas-base/atlas/libblas.so.3.0
LAPACK: /usr/lib/lapack/liblapack.so.3.0

locale:
[1] C

attached base packages:
[1] stats     graphics  grDevices utils     datasets  methods   base     

other attached packages:
[1] neural_1.4.2.2

loaded via a namespace (and not attached):
[1] compiler_3.4.4
Error in if ((!visual) | (coor$x > 640) & (coor$x < 700) & (coor$y > 650) &  : 
  argument is of length zero
Calls: mlptrain
Execution halted

问题是我无法可视化预测值和观察值。提前感谢您的帮助！

标签： r