R 如何将模型系数乘以一个数字?
你好,我想缩放我的模型的系数。这就是我准备这个小例子的原因。 我想将每加仑城市、每加仑公路、马力的系数乘以“校正系数”。你知道如何乘以或修正系数吗R 如何将模型系数乘以一个数字?,r,regression,coefficients,R,Regression,Coefficients,你好,我想缩放我的模型的系数。这就是我准备这个小例子的原因。 我想将每加仑城市、每加仑公路、马力的系数乘以“校正系数”。你知道如何乘以或修正系数吗 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 M
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)
库(MASS)
数据(“Cars93”)
新汽车=汽车93[,c(4,5,6,7,8,13,14)]
拟合您可以按名称选择系数
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
fit[[1]]$系数[c(“每英里城市”、“每英里公路”、“马力”)]您可以按名称选择系数
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
fit[[1]]$系数[c(“每加仑城市”、“每加仑公路”、“马力”)]