Я хочу экспортировать результаты нескольких регрессий в файл Excel в очень специфическом формате
MWS
data("mtcars")
str(mtcars)
m1<-lm(hp ~ disp, data = mtcars)
m2<-lm(hp ~ disp + wt, data = mtcars)
Я считаю этот формат наиболее подходящим:
library(texreg)
screenreg(list(m1, m2))
===================================
Model 1 Model 2
-----------------------------------
(Intercept) 45.73 ** 68.84 *
(16.13) (31.80)
disp 0.44 *** 0.54 ***
(0.06) (0.14)
wt -14.45
(17.10)
-----------------------------------
R^2 0.63 0.63
Adj. R^2 0.61 0.61
Num. obs. 32 32
RMSE 42.65 42.85
===================================
*** p < 0.001, ** p < 0.01, * p < 0.05
Я хочу преобразовать вышеупомянутое в массив данных или что-то подобное, чтобы экспортировать его в excel, , сохранив его формат .
Приветствуются другие идеи, которые могут создать похожую таблицу и экспортировать ее в Excel.
Самым важным для меня является экспорт коэффициентов, имеющих * над каждым, чтобы я мог понять, какой из них важен в каждой новой регрессии.
Не могли бы вы помочь мне с этим?