R . में अलियास्ड गुणांक लौटाने वाले VIF

R में 'उपनाम' फ़ंक्शन का उपयोग करके देखें कि कौन से चर रैखिक रूप से निर्भर हैं। आश्रित चर को हटा दें और vif फ़ंक्शन सही ढंग से काम करना चाहिए।

formula <- as.formula(Spring_Autumn ~ Oct + Nov + Dec + Jan + Feb + Mar + Apr + May + Jun + Jul + Aug + Sep + X1min + X3min +   X7min + X30min + X90min + X1max + X3max + X7max + X30max + X90max + BF + Dmin + Dmax+ LP + LPD + HP + HPD + RR + FR + Rev, data = IHA_stats)
fit <-lm(formula)

#the linearly dependent variables
ld.vars <- attributes(alias(fit)$Complete)$dimnames[[1]]

#remove the linearly dependent variables variables
formula.new <- as.formula(
    paste(
        paste(deparse(formula), collapse=""), 
        paste(ld.vars, collapse="-"),
        sep="-"
    )
)

#run model again
fit.new <-lm(formula.new)
vif(fit.new)

नोट:यह उस स्थिति में काम नहीं करेगा जब आपके पास स्वतः उत्पन्न डमी चर हैं जो अन्य चर के समान हैं। परिवर्तनीय नाम गड़बड़ हो जाते हैं। इससे निजात पाने के लिए आप अपना खुद का हैक बना सकते हैं।