У меня есть несколько запасов, и я отслеживаю входящие и исходящие товары (объем).
Мне нужно рассчитать стоимость запасов (с учетом прибыли), используя метод FIFO.
Inventory Time Type Price Volume
1 A 2015-07-15 BUY 7.50 4
2 A 2015-07-20 BUY 7.69 2
3 A 2015-07-21 BUY 7.40 1
4 A 2015-07-24 BUY 7.26 2
5 A 2015-07-30 SELL 7.35 8
6 A 2015-07-31 BUY 7.92 2
7 B 2015-09-15 BUY 8.50 3
8 B 2015-09-21 BUY 8.20 5
9 B 2015-09-28 SELL 9.25 6
Например:
Продажа на дату 2015-07-30(8 единиц) имели стоимость FIFO:
4 х 7,5 + 2 х 7,69 + 1 х 7,4 + 1 х 7,26 = 60,04
Таким образом, прибыль (убыток):
8 * 7,35 - 60,04 = -1,24
Стоимость товаров, оставшихся в инвентаре A после транзакции: 1 x 7,26 + 2 x 7,92 = 23,1
Стоимость запасов после корректировки на потери: 23,1 +(-1.24) = 21,86
Как я могу использовать R для расчета стоимости портфеля для каждого инвентаря отдельно?
Код для примера таблицы:
df1 <- data.frame(Inventory = c("A", "A", "A", "A", "A", "A", "B", "B", "B"),
Time = c("2015-07-15", "2015-07-20", "2015-07-21", "2015-07-24", "2015-07-30", "2015-07-31", "2015-09-15", "2015-09-21", "2015-09-28"),
Type = c("BUY", "BUY", "BUY", "BUY", "SELL", "BUY", "BUY", "BUY", "SELL"),
Price = c(7.5, 7.69, 7.4, 7.26, 7.35, 7.92, 8.5, 8.2, 9.25),
Volume = c(4, 2, 1, 2, 8, 2, 3, 5, 6))