Я пытаюсь суммировать суммы, которые каждый ростовщик должен выставить перед каждой сделкой, которую он совершает.Итак, я пробую этот код, но он продолжает работать и никогда не заканчивается.Помогите пожалуйста.
CANT <- rep(0, length = length(datos$IDENTIFICACION)) i <- 1 while(i<length(datos$COLILLA)){ for(a in 1:89339){ CANT[i]<- - sum(datos[which(datos$IDENTIFICACION[a]==datos$IDENTIFICACION[i]),17]) } i <- i+1 }
CANT <- rep(0, length = length(datos$IDENTIFICACION)) i <- 1 while(i<length(datos$COLILLA)){ for(a in 1:89339){ if(datos$IDENTIFICACION[i]==datos$IDENTIFICACION[a]){ CANT[i]<- CANT[i]+datos$AMOUNT[a] } else {CANT[i]<-CANT[i]} } i <- i+1 }