如何制作for循环以查找R中多个变量之间的相互作用?
How to make a for loop to find interactions between several variables in R?
我有一个包含 17 个变量的数据集
这里有数据link
http://www.uwyo.edu/crawford/stat3050/final%20project/maxwellchandler.txt
我想找出变量之间的显着交互作用。
例如
fitcivilian<-lm(Civilian~Stock+Terrorism+log(Firepower)+Payload+Bombs*Temperature+FirstAid+Spies+Personnel+IG88, data=data)
其中炸弹*温度很重要
我想做的是针对每个其他变量测试每个变量,
喜欢
炸弹*温度
炸弹*凝固汽油弹
IG88* 武器
导弹*火力
等直到两个的每一个组合都被耗尽
这样,我可以找出每个变量之间是否存在显着的交互作用。
我知道如何手动完成,创建一个线性模型,然后对该模型进行总结,但我希望能够创建一个循环来测试每个变量,因为测试所有内容需要很多条目.
我也做过类似的事情。您需要根据需要修改循环。如果您需要帮助,请告诉我。
vars=colnames(mydata)[-1]
for (i in vars) {
for (j in vars) {
if (i != j) {
factor= paste(i,j,sep='*')}
lm.fit <- lm(paste("Sales ~", factor), data=mydata)
print(summary(lm.fit))
}}
我有一个包含 17 个变量的数据集
这里有数据link http://www.uwyo.edu/crawford/stat3050/final%20project/maxwellchandler.txt
我想找出变量之间的显着交互作用。
例如
fitcivilian<-lm(Civilian~Stock+Terrorism+log(Firepower)+Payload+Bombs*Temperature+FirstAid+Spies+Personnel+IG88, data=data)
其中炸弹*温度很重要
我想做的是针对每个其他变量测试每个变量,
喜欢
炸弹*温度
炸弹*凝固汽油弹
IG88* 武器
导弹*火力
等直到两个的每一个组合都被耗尽
这样,我可以找出每个变量之间是否存在显着的交互作用。
我知道如何手动完成,创建一个线性模型,然后对该模型进行总结,但我希望能够创建一个循环来测试每个变量,因为测试所有内容需要很多条目.
我也做过类似的事情。您需要根据需要修改循环。如果您需要帮助,请告诉我。
vars=colnames(mydata)[-1]
for (i in vars) {
for (j in vars) {
if (i != j) {
factor= paste(i,j,sep='*')}
lm.fit <- lm(paste("Sales ~", factor), data=mydata)
print(summary(lm.fit))
}}