move fs function for svd evaluation to the functions/utilityFunctions.R program