Я запускаю системный набор, казалось бы, не связанных регрессий с 25 уравнениями, на данных панели.Это возвращает объект systemfit, представляющий собой список из 25 объектов systemfit.equation для каждого уравнения.Эти объекты systemfit.equation содержат коэффициенты, остатки, метки уравнений и т. Д. Я пытаюсь выделить их в «аккуратный» фрейм данных с 25 строками для каждого уравнения и столбцами для результатов каждого интересующего меня уравнения.
Мне удалось извлечь переменные, оценки, ошибки и p-значения, используя
results = as.data.frame(summary(fgls)$coefficients)%>%
+ rownames_to_column(var = "variable")
Таблица результатов faux выглядит следующим образом:
+-----------------------+
| Variable Estimate |
+-----------------------+
| 1_(intercept) -21.2 |
| X1_X 6.2 |
| X1_Y 1.2 |
| 2_(intercept) -86.9 |
| X2_X 3.5 |
| X2_Y 2.7 |
| .... .... |
+-----------------------+
Я хочудобавить переменную, которая идентифицирует каждый eqnlabel.Метки уравнения могут быть извлечены с помощью
fgls$eq[[i]]$eqnLabel)
для уравнения i
Я могу создать переменную "механически", повторяя метку переменной, используя dplyr, но как я могу ее извлечьиз объекта systemfit?