Мы можем сделать это без цикла, чтобы получить индекс строки логического вектора с which
which(prepareRunSwitch$trial > 0)
Приведенное ниже сработает, если мы извлечем столбец и затем индексируем
prac <- c()
for (i in 1:nrow(prepareRunSwitch)){
if(prepareRunSwitch$trial[i] > 0){
prac <- append(prac, i)
}
return(prac)
}
В качестве воспроизводимого примера
prac <- c()
for(i in 1:nrow(mtcars)) if(mtcars$carb[i] == 4) prac <- append(prac, i)
prac
#[1] 1 2 7 10 11 15 16 17 24 29
В качестве примечания, лучше заменить 1:nrow
на seq_len(nrow(