在R中的lm之前从公式中删除Inf值

您可以从正在回归的数据中删除这些值。 Inf将出现在hp == 0或gear == 0的地方。

    
      data(mtcars)
df <- mtcars
myFormula <- as.formula(“mpg ~ cyl + I(disp / hp) + I(wt^2) + I((qsec + vs) / gear)”)
df <- df[!(df$hp==0 | df$gear==0),]
lm(myFormula,df)
lm(myFormula,df)
Call:
lm(formula = myFormula, data = df)
Coefficients:
        (Intercept)                  cyl           I(disp/hp)              I(wt^2)  I((qsec + vs)/gear)
            35.5847              -1.9639               1.0707              -0.3671              -0.1699  
</code>