Ошибка R.net во время оценки - «индекс за пределами границ»

Question

Я получаю ошибку «subscript out of bounds» при запуске R-скрипта через R.net (входные данные из кода C#). Как ни странно, если я запускаю Rscript, когда те же входные данные предоставляются excel, он работает отлично! Любые идеи о том, почему это произойдет? Я отправляю «vardata» из кода C#.

*

***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) 

Answer 1

Я нашел ошибку в своем коде. Входную матрицу из C# пришлось перенести перед использованием. Следовательно, ошибка об «Подстроке вне границ». Установите это как закрытое.