[R] Package VIF

[Jaap van Wyk]

Hi

Could you perhaps possibly help me. I would like to use the package  
VIF but cannot get results

I attach the .csv file and my R code. What do I have to do ? Any help  
is greatly appreciated.

library(VIF)
coal <- read.csv("e:/freekvif/cqa1.csv",header=TRUE)
y <- as.numeric(coal$AI)
x <- as.matrix(cbind(coal$Gyp, coal$Pyrite, coal$Sid, coal$Calcite,  
coal$Dol, coal$Apatite, coal$Kaol, coal$Quartz, coal$Mica, coal$Micro,  
coal$Rutile))
myd <-list(y=y,x=x)
vif.sel <- vif(myd$y, myd$x, subsize=11, trace=FALSE)
vif.sel$select

Response from R:
logical(0)

Thank you so much,
Jacob