当前代码:
alpha_function <- function(x){
group_by(wficn, caldt) %>%
lm(mktrf~excess_return, data = CRSP_database) %>%
tidy() %>%
[[1]]$estimate
return()
}资料来源: date,fundno,mtna,mret,mnav,mktrf,smb,hml,umd,rf
需要的是一个数据库,显示每个基金每年的总阿尔法值。或者是每年一个基金的β值。
发布于 2022-06-09 14:18:43
尝试下面的操作,但是如果您可以提供一个测试数据集的示例来测试它,那么帮助就会更容易。
alpha_function <- function(x){
CRSP_database %>%
group_by(wficn, caldt) %>%
lm(mktrf~excess_return, data = .x) %>%
tidy() %>%
pluck("estimate")
}https://stackoverflow.com/questions/72550552
复制相似问题