尝试运行以下R代码。
> sp_500 <- sp_500 %>%
+
+ mutate(
+ stock.prices = map(ticker.symbol,
+ function(.x) get_stock_prices(.x,
+ return_format = "tibble",
+ from = "2017-01-01",
+ to = "2017-09-21")
+ ),
+ log.returns = map(stock.prices,
+ function(.x) get_log_returns(.x, return_format = "tibble")),
+ mean.log.returns = map_dbl(log.returns, ~ mean(.$Log.Returns)),
+ sd.log.returns = map_dbl(log.returns, ~ sd(.$Log.Returns)),
+ n.trade.days = map_dbl(stock.prices, nrow)
但我一直收到这个错误:
Warning: BRK.B download failed; trying again.
Error in mutate_impl(.data, dots) :
Evaluation error: BRK.B download failed after two attempts. Error message:
HTTP error 404..
有谁知道我做错了什么?
最诚挚的问候 安莎
答案 0 :(得分:0)
下载特定代码似乎有问题。我不是开发人员,但我遇到了和你一样的问题,并通过删除这些代码(小于10)来修复它。删除它们的代码可以在取代这段代码的同一页面上找到它的
sp_500 <- sp_500 %>%
filter(ticker.symbol != "BRK.B")
我希望它有所帮助。
答案 1 :(得分:0)
BRK.B股票基本上存在问题,我不确定这是什么,但是解决该问题的方法是消除它们。
函数中还有其他股票,这就是我的解决方法:
sp_500 <- sp_500[c(-72,-86, -82, -163, -268, -460, -392),] %>%
mutate(
stock.prices = map(ticker.symbol,
function(.x) get_stock_prices(.x,
return_format = "tibble",
from = "2007-01-01",
to = "2018-10-23")
),
log.returns = map(stock.prices,
function(.x) get_log_returns(.x, return_format = "tibble")),
mean.log.returns = map_dbl(log.returns, ~ mean(.$Log.Returns)),
sd.log.returns = map_dbl(log.returns, ~ sd(.$Log.Returns)),
n.trade.days = map_dbl(stock.prices, nrow)
)
[c(-72,-86,-82,-163,-268,-460,-392),]是对我不起作用的股票,因为它显示和错误,基本上可以找到列通过查看股票名称会发现错误,并查看它们在哪一列中并消除它们
希望有帮助