Вот ссылка для набора данных https://www.dropbox.com/s/mcukuvpnrqrtgfd/datasetfirm.csv?dl=0.Я попытался выполнить цикл для набора данных с лагами и отведениями, используя i + 1 и i-1, i-2.При получении результатов я вижу, что i-1 и i-2 работают хорошо, однако для i + 1 результата нет.
Вот коды, которые я использовал
datasetfirm<-read.csv("path")
datasetfirm<-datasetfirm[-1]
for (i in 1:nrow(datasetfirm)) {
if (datasetfirm[i,4]==1){
datasetfirm[i+1,5]<-55
datasetfirm[i,5]<-1
datasetfirm[i-1,5]<-1
datasetfirm[i-2,5]<-1
}else{datasetfirm[i,5]<-7}
}
Ожидаемый результат состоит в том, что в 5-м столбце строки с 3 по 6 должны быть равны 1, тогда как с этим кодом только 3 до 5 равны 1.