R code for removing variables with vif > 10 w dimension 1946x686 (v huge data) and keep track of what is removed and how many variables are removed

Question

my question is from my homework.

I need someone to help me CODE with R Programming Language.

I have been given a CSV file with dimensions as 1946 rows and 686