data(cor.data)
# Evaluate linear correlations on linear dataCollinearity between
head( dat <- cor.data[[4]] )
pairs(dat, pch=20)
( cor.vars <- collinear( dat ) )
# Remove identified variable(s)
head( dat[,-which(names(dat) %in% cor.vars)] )
# \donttest{
# Evaluate linear correlations on nonlinear data
# using nonlinear correlation function
plot(cor.data[[1]], pch=20)
collinear(cor.data[[1]], p=0.80, nonlinear = TRUE )
# }
Run the code above in your browser using DataLab