我想自動運行許多回歸模型並測試它並將擬合和殘差保存在原始文件中。R代碼:自動多元迴歸模型和測試
我的意思是我想測試所有可能的數據迴歸模型。
例如,X1 = X2 + X3 ...和X2 = X1 + X3 ...和X3 = X1 + X2 ...
然後添加擬合值和每個模型的殘餘值。
我有這樣的文件。
test<-data.frame(X1=rnorm(50,mean=50,sd=10),
X2=rnorm(50,mean=5,sd=1.5),
X3=rnorm(50,mean=200,sd=25))
test$X1[10]<-5
test$X2[10]<-5
test$X3[10]<-530
我運行所有可能的迴歸模型。
varlist <- names(test)
models <- lapply(varlist, function(x) {
lm(substitute(i~., list(i = as.name(x))), data = data
})
我得到了擬合和每個迴歸模型的殘差。
lapply(models,residuals)
lapply(models, fitted)
但是,我想保存原始數據上的所有殘差和擬合值。 是否有可能使這樣的最終數據?
X1 X2 X3 Residual1 Residual2 Residual3 Fitted1 Fitted2 Fitted3
讓residual1
是model1
,residual2
爲model2
等
東西太感謝你了!我知道了。 – user976856