kaiserCrit function

Selecting the number of principal components to be extracted from a dataset