如何制作for循环来查找R中多个变量之间的交互？

Question

我有一个包含 17 个变量的数据集

数据可在此链接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* 武器

导弹*火力

等，直到两个的每一个组合都被耗尽

这样，我可以找出每个变量之间是否存在显着的交互作用。

我知道如何手动完成，创建一个线性模型，然后对该模型进行总结，但我希望能够创建一个循环来测试每个变量，因为它需要大量条目来测试所有内容。

Answer 1

我做过类似的事情。 您将需要根据需要修改循环。 如果您需要帮助，请告诉我。

    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))
    }}