R/vifx.R

Defines functions vifx

Documented in vifx

    vifx <- function(x) {
        data1 <- as.data.frame(x)
        data1 <- data1[sapply(data1,is.numeric)]
        r2 <- sapply(names(data1),(function(y) {
            m1 <- bquote(lm(.(as.name(y))~.,data=data1))
            result <- summary(eval(m1))
            return(result$r.squared)
        }))
        return(1 / (1 - r2))
    }

Try the preputils package in your browser

Any scripts or data that you put into this service are public.

preputils documentation built on July 1, 2020, 5:35 p.m.