如何从r中的文本文件中读取矩阵

Question

我正在进行反向传播。我在r中写这个程序。我有两个单独的程序。一个用于训练网络，另一个用于运行训练有素的网络。从训练网络获得的权重被给予作为训练网络的输入。权重矩阵初始化为3X12。

第一个程序（培训网络）

获取vij

的代码

training <- function()
{
i <- 3
j <- 12
vij <- matrix(0,nrow = i,ncol= j)
vij <- 0.7 * vij
sink("G:/rvma/backpropgatn_610/trainedvij.txt",append=FALSE)
print(vij)
} 

当我将此输出矩阵写入文本文件时，前9列存储为一组数据，接下来的3列存储为另一组数据。

第二个程序（训练有素的网络）

从第一个程序中读取vij

trained <- function()
{
i <- 3
j<- 12
vij <- matrix(0,nrow = i,ncol= j)
  vij <- as.matrix(read.table("G:/rvma/backpropgatn_610/trainedvij.txt",                                   header=FALSE))
  print(vij)
}

当我想阅读文本文件时，它会出错：

  

扫描错误（file = file，what = what，sep = sep，quote = quote，dec   = dec，：第1行没有10个元素

如何阅读这个3X12矩阵？