Как умножить коэффициенты модели на число?

Здравствуйте, я хотел бы масштабировать коэффициенты моей модели. Вот почему я подготовил этот небольшой пример. Я хотел бы умножить коэффициенты MPG.city, MPG.highway, Horsepower на "поправочный коэффициент". Любые идеи, как умножить или исправить коэффициенты?

library(MASS)
data("Cars93")

Cars_new = Cars93[,c(4,5,6,7,8,13,14)]
fit<-lm(Price~.,data=Cars_new)

#model output should be list
fit<-list(fit)

#correction factor for MPG.city, MPG.highway,Horsepower
correction<-c(1.2,1.23,1.6)

Выход модели EDIT — это список!

вывод модели выглядит следующим образом


r regression coefficients
person Edin Mar    schedule 01.06.2019    source источник

Ответы (1)


arrow_upward
2
arrow_downward

Вы можете выбрать коэффициенты по названию

fit[[1]]$coefficients[c("MPG.city", "MPG.highway", "Horsepower")] <- 
   fit[[1]]$coefficients[c("MPG.city", "MPG.highway", "Horsepower")] * correction

#[[1]]

#Call:
#lm(formula = Price ~ ., data = Cars_new)

#Coefficients:
#(Intercept)    Min.Price    Max.Price     MPG.city  MPG.highway   Horsepower      RPM  
# -2.424e-02    5.010e-01    4.999e-01   -1.639e-04    1.029e-03   -1.504e-04   -1.293e-07
person Ronak Shah    schedule 01.06.2019