Delete EM algorithm for pca.R