Еженедельное присвоение веса событиям с использованием R - PullRequest
Новая
       8

Еженедельное присвоение веса событиям с использованием R

0 голосов
/ 13 сентября 2018

У меня есть данные аукциона, которые носят нерегулярный характер, т. Е. Бывают недели, когда проводился только один аукцион в определенный день, и бывают случаи, когда в один день проводилось несколько аукционов.Есть также события, когда в течение недели проводилось несколько аукционов.

Я пытаюсь создать столбец взвешенная цена предложения , в котором я пытаюсь применить логику ---> цена предложения (для конкретного аукциона) * вес событияна определенный день и на неделю.

mydata: 

   Date    Quantity Bid_Price   No.of.Bidders
25-07-2014  75000   51.99            3
30-07-2014  75000   31.45            3
04-08-2014  75000   28.49            3
20-08-2014  150000  12.25            2
25-08-2014  75000   14.66            6
08-10-2014  75000   17.85            1
09-10-2014  75000   17.12            3
13-10-2014  75000   16.09            5
14-10-2014  75000   15.74            6
15-10-2014  75000   15.93            4
16-10-2014  150000  10.49            4
17-10-2014  75000   16.49            5
20-10-2014  75000   16.23            5
24-10-2014  75000   17.69            3
27-10-2014  75000   17.94            7
28-10-2014  75000   19.8             5
29-10-2014  75000   17.65            5
30-10-2014  75000   19.76            5
31-10-2014  75000   18.96            4
03-11-2014  150000  13.54            5
07-11-2014  75000   18.34            2
07-11-2014  75000   16.36            6
10-11-2014  75000   17.2             6
11-11-2014  75000   16.05            7
13-11-2014  75000   15.9             7
14-11-2014  75000   17.1             8
17-11-2014  75000   15.83            8
18-11-2014  75000   15.76            5
19-11-2014  75000   16.28            9
20-11-2014  75000   15.79            5
21-11-2014  75000   15.95            7

Изначально я выполнил следующие действия для вычисления weighted_bid_price, но для настройки MAPE я пытаюсь достичь взвешенной цены предложения, как упоминалосьвыше. 

mydata %>% 
  group_by(Date) %>% 
  summarise(weighted_bid_price = weighted.mean(L1_BID_PRICE, Quantity))

Как мне поступить?Пожалуйста помоги.Заранее спасибо.

...