for(i in 1:i) if(forecasting$day10[i]>headcount$within10closures[i]){
  forecasting$day10[i] <- forecasting$day10[i] - headcount$within10closures[i]
} else {
  forecasting$day10[i] <- 0
  subtraction <- headcount$within10closures[i]-forecasting$day10[i]
  if(forecasting$day9[i]>subtraction){
    forecasting$day9[i] - (subtraction)
  } else {
    forecasting$day9[i] <- 0
    subtraction <- subtraction - forecasting$day9[i]
    if(forecasting$day8[i]>subtraction){
      forecasting$day8[i] - (subtraction)
    } else {
      forecasting$day8[i] <- 0
      subtraction <- subtraction - forecasting$day8[i]
      if(forecasting$day7[i]>subtraction){
        forecasting$day7[i] - (subtraction)
      } else {
        forecasting$day7[i] <- 0
        subtraction <- subtraction - forecasting$day7[i]
        if(forecasting$day6[i]>subtraction){
          forecasting$day6[i] - (subtraction)
        } else {
          forecasting$day6[i] <- 0
          subtraction <- subtraction - forecasting$day6[i]
          if(forecasting$day5[i]>subtraction){
            forecasting$day5[i] - (subtraction)
          } else {
            forecasting$day5[i] <- 0
            subtraction <- subtraction - forecasting$day5[i]
            if(forecasting$day4[i]>subtraction){
              forecasting$day4[i] - (subtraction)
            } else {
              forecasting$day4[i] <- 0
              subtraction <- subtraction - forecasting$day4[i]
              if(forecasting$day3[i]>subtraction){
                forecasting$day3[i] - (subtraction)
              } else {
                forecasting$day3[i] <- 0
                subtraction <- subtraction - forecasting$day3[i]
                if(forecasting$day2[i]>subtraction){
                  forecasting$day2[i] - (subtraction)
                } else {
                  forecasting$day2[i] <- 0
                  subtraction <- subtraction - forecasting$day2[i]
                  if(forecasting$day1[i]>subtraction){
                    forecasting$day1[i] - (subtraction)
                  } else {
                    forecasting$day2[i] <- 0
                    subtraction <- subtraction - forecasting$day2[i]
                    forecasting$day1 <- forecasting$day1 - subtraction
                  }
          }
        }
      }
    }
  }
      }
    }
  }
}

for(x in 1:11){
    for(i in 1:n){
    ifelse(x==1, subtraction <- headcount$within10closures[i], subtraction <- (subtraction - (forecasting[i,grep("day10", colnames(forecasting))+1-x])))
    ifelse(forecasting[i,grep("day10", colnames(forecasting))+1-x]>=subtraction, forecasting[i,grep("day10", colnames(forecasting))+1-x] <- forecasting[i,grep("day10", colnames(forecasting))+1-x] - subtraction, forecasting[i,grep("day10", colnames(forecasting))+1-x] <- 0)
    }
  }

day0 | day1 | day2 | day3
-----+------+------+------
10   |  10  |  10  |  10
10   |  10  |  10  |  10
10   |  10  |  10  |  10

| within10closures |
        6
        10
        35

day0 | day1 | day2 | day3
-----+------+------+------
10   |  10  |  10  |  4
10   |  10  |  10  |  0
5    |  0   |  0   |  0