library('usdm')
vifme=function(xmatname){
 rl=readLines(xmatname)
 rl.1=rl[-grep("#",rl)]
 rl.1=rl.1[grep("0",rl.1)]
 xmat=read.table(text=rl.1)
 rl.2=rl[grep("ColumnLabels",rl)]
 rl.2=sub("#  ColumnLabels = \"","",rl.2)
 rl.2=sub("\"","",rl.2)
 xlab=unlist(strsplit(rl.2," ; "))
 names(xmat)=xlab
 vifmat=(vif(xmat))
 write.table(vifmat,paste("vif",xmatname,sep="_"))}