Избегайте неподобающего имени коэффициента при выполнении регрессии - PullRequest
0 голосов
/ 15 ноября 2018

Я запускаю следующие регрессии, используя функцию map2:

map2(listOfInvVolWeightedOtherStratPortfolioReturns,listOfValueAndMomentumFactorReturns,~lm((.y %>% select(-date) %>% as.matrix()) ~ (.x %>% select(-date) %>% as.matrix())) %>% summary())

Имя коэффициента для каждого регистра в списке выходов регистров: .x %>% select(-date) %>% as.matrix():

                                            Estimate
(Intercept)                               0.01244429
.x %>% select(-date) %>% as.matrix()     -0.81570351

Как я могу установить имя коэффициентов, скажем, factor, когда я запускаю регрессии, чтобы избежать этого?

1 Ответ

0 голосов
/ 16 ноября 2018

Без предоплаты это сложно, но следующее более читабельно, и я считаю, что это должно работать:

myFun <- function(x, y) {
  x <- x %>%
    select(-date) %>%
    as.matrix()
  y <- y %>%
    select(-date) %>%
    as.matrix()
  res <- lm(y ~ x) %>%
    summary()
  return(res)
}
map2(listOfInvVolWeightedOtherStratPortfolioReturns,
     listOfValueAndMomentumFactorReturns,
     myFun)
...