Переименовать постоянный термин, используя stargazer

Question

Я хотел бы добавить значение контрольной группы к моим регрессионным таблицам в Stargazer. Моя нынешняя идея - заменить перехват средней группой управления и переименовать этот термин. Я знаю, как заменить значение перехвата, но есть ли способ переименовать термин перехвата? Часто бывает полезно заменить постоянный термин средним значением контрольной группы.

library(stargazer) 

attitude$treatment <- rbinom(n = 30, size = 1, prob = .5) 
lm_model <- lm(rating ~ treatment + complaints + privileges + learning 
      + raises + critical, data=attitude) 

#add in control mean 
control_mean <- mean(attitude[attitude$treatment == 0, "rating"]) 
lm_model[["coefficients"]][names(lm_model[["coefficients"]]) == 
         "(Intercept)"] <- control_mean 

stargazer(lm_model) 

Answer 1

# Rename intercept 
names(lm_model$coefficients)[1] 

# Change value of intercept to control_mean 
lm_model$coefficients[1] = control_mean 

Это на самом деле не stargazer вопрос, но это всего лишь вопрос о том, как изменить объект модели.