I have to make a reiterative table that each calculation has to take the previous one. Let me explain, my initial data are:

maximum <- 10
minimum <- 2
orderp <-0
Qst <- 6
sell <- c(0, 2 , 2 , 10)

Calculated:

Qst <- c(6, 4, 2, 0)
Qfin <- c(6,4, 10, 10)
orderp <- c(0,0,8,10)
output<-data.frame(Qst,Qfin,sell)

How can I do something like this? Excel is easy but R is not my field.

CodePudding user response：

I think this requires a small loop to solve, as it is an iterative calculation:

for(i in 2:length(sell)) {
  Qst[i] <- Qfin[i - 1] - sell[i]
  orderp[i] <- ifelse(Qst[i] <= minimum, maximum - Qst[i], 0)
  Qfin[i] <- Qst[i]   orderp[i]
}

This results in:

rbind(Qst, orderp, Qfin, sell)
#>        [,1] [,2] [,3] [,4]
#> Qst       6    4    2    0
#> orderp    0    0    8   10
#> Qfin      6    4   10   10
#> sell      0    2    2   10

^{Created on 2022-05-13 by the reprex package (v2.0.1)}