Распределение товаров, язык R

[zhenya.ya]

Добрый день, уважаемые программисты. Может кто подскажет, как с помощью языка R (только R) можно на каждый магазин распределить по единице по порядку(размер до окончания остатка).
Например, есть такие данные(data.frame):

   ProductID  Shop    Dist  Warehouse GoodsInStock 
       1A    Shop2     0          WH1            3                  
       1A    Shop1     0          WH1            3                  
       1B    Shop2     0          WH1            3                  
       1B    Shop1     0          WH1            3                 
       1C    Shop3     0          WH2            2

В результате хотел бы получить:

    ProductID  Shop    Dist  Warehouse GoodsInStock 
       1A    Shop2     2          WH1            3                  
       1A    Shop1     1          WH1            3                  
       1B    Shop2     2          WH1            3                  
       1B    Shop1     1          WH1            3                 
       1C    Shop3     2          WH2            2