错误：找不到对象'len'

Question

我想多给点信息。我开始与4个基因并确定其开启和关闭的条件下，使用下面的脚本：

Proli <- function (DISC1, GSK3B, DIXDC1, CTNNB1){  
    inputs <- permutations(2,4,v=c(0,1),repeats.allowed=TRUE); 
    if (DISC1 == 1 && GSK3B == 0 && DIXDC1 == 1 && CTNNB1 == 1){ 
    Proliferation <- "TRUE" 
    } 
    else 
    { 
    Proliferation <- "FALSE" 
    } 
    Proliferation 
} 

然后我装gtools和heirpart。

inputs <- permutations(2,26,v=c(0,1),repeats.allowed=TRUE) 
len <- length[inputs] 
for(i in 1:len) 
{ 
    if(inputs[i,1] == 1 && inputs[i,2] == 0 && inputs[i,3] == 1 && inputs[i,4] == 1){ 
    #Constructing a Truth Table 
    output[i] <- 1 
    } 
    else{ 
    output[i] <- 0 
    } 
} 

现在，我得到错误的输出[I] < - 0：对象 '输出' 未找到

Answer 1

#just在上面添加你的脚本

len <- lenght(object on with you do your loop) 

或

len <- nrow(object on with you do your loop) 



for(i in 1:len) { 
     if(inputs[i,1] == 1 && inputs[i,2] == 0 && inputs[i,3] == 1 && inputs[i,4] == 1){ 
      #Constructing a Truth Table 
      output[i] <- 1 
     } 
     else{ 
      output[i] <- 0 
     } 
    }