Как извлечь метку уравнения из объекта systemfit в R?

Question

Я запускаю системный набор, казалось бы, не связанных регрессий с 25 уравнениями, на данных панели. Это возвращает объект systemfit, представляющий собой список из 25 объектов systemfit.equation для каждого уравнения. Эти объекты systemfit.equation содержат коэффициенты, остатки, метки уравнений и т. Д. Я пытаюсь выделить их в "аккуратный" фрейм данных с 25 строками для каждого уравнения и столбцами для результатов каждого интересующего меня уравнения.

Я был в состоянии извлечь переменные, оценки, ошибки и р-значения с помощью

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?