我正在尝试解决在Redit中发现的问题,并正在尝试使用mtcars
数据集来做到这一点
这是问题所在:
他的清单如下:https://gyazo.com/0637f2226d8f53db4c90716bd3fb698c,其中有150个不同的"selskapsid"
。
他想使用"Return12"
作为因变量,并对每个"SROE"
使用"MktCap"
,"y"
和"Selskapsid"
和自变量进行线性回归。 (基本上,每行或每个id逐行回归,即使id重复,我也需要单独的模型。)
我阅读了其中的评论,没有找到任何好的解决方案,因此我尝试使用dplyr
并打包了一些让我感到有些舒服的东西,但是我遇到的问题是cyl
的值在影响因素因此,当我尝试构建模型cyl
时,值不会重复。
有人知道实现这一目标的简单循环吗?我想在没有正确获得训练结果的同一循环中进行训练和测试。
使用该库,我正在这样做:
library(tidyverse)
library(broom)
mtcars %>%
nest(-cyl) %>%
mutate(fit <-map(data, ~ lm(mpg ~ hp + wt + disp, data = .)),
results = map(fit, augment)) %>%
unnest(results)