added SVD to cluster.R