在求值过程中出现rnet错误-“;下标超出边界”

本文关键字：下标 边界 错误 过程中 rnet | 更新日期: 2023-09-27 18:18:08

当我通过R.net运行R脚本(从c#代码输入数据)时，我得到"下标越界"错误。奇怪的是，如果我在excel提供相同输入数据时运行Rscript，它运行得很好!你知道为什么会这样吗?我正在从c#代码发送"vardata"。

* 

***Error in my.data.var.mat.1st[Pos.loc] <- my.data.var.1st : 
  subscript out of bounds***
*

这是代码和相关信息。

vardata <- structure(list(t = c(10, 10, 10, 10), f1j = c(0.25, 0, 0, 0.25
), f2j = c(0.25, 0, 0, 0.25), f3j = c(0.25, 0, 0, 0.25), f4j = c(0.25, 0, 0.25, 0.25), f5j = c(0, 0.25, 0, 0.25)), .Names = c("t", "f1j", "f2j", "f3j", "f4j", "f5j"), row.names = c(NA,-4L), class = "data.frame")
tolerance <- 0
Tau.Fij.opt.mat.1st <-  ifelse(vardata > tolerance ,vardata,0)  
Pos.list <- Tau.Fij.opt.mat.1st[Tau.Fij.opt.mat.1st>0] #get all values>0 
Pos.loc <- which(Tau.Fij.opt.mat.1st > 0, arr.ind = TRUE)  #get locations>0                 
Zero.list <- Tau.Fij.opt.mat.1st[Tau.Fij.opt.mat.1st==0] 
Zero.loc <- which(Tau.Fij.opt.mat.1st == 0, arr.ind = TRUE)  
my.data.var.1st <- Pos.list     # variables to be evaluated
Error.func.1st <- function(my.data.var.1st,Pos.loc,Zero.loc,Zero.list)  #my.data.var.1st,Pos.loc,Zero.loc,Zero.list
{
  #First convert vector(my.data.var) to MATRIX aand send it to calculate new MATRIX
  my.data.var.mat.1st <- matrix(,nrow = 4,ncol = 6,byrow = TRUE)
  my.data.var.mat.1st[Pos.loc] <- my.data.var.1st
  if(length(Zero.loc)>0)
  {
    my.data.var.mat.1st[Zero.loc] <- Zero.list
  }
 Error <- my.data.var.mat.1st
  }
AA <- Error.func.1st(my.data.var.1st,Pos.loc,Zero.loc,Zero.list)

在求值过程中出现rnet错误-“;下标超出边界”

我在我的代码中发现了错误。c#中的输入矩阵在使用之前必须进行转置。因此，关于"下标越界"的错误。将此设置为关闭。

相关文章：