data(Application)
X=Application
n=nrow(Application);p=ncol(Application)
m=5;L=4;K=4
DLPCA_result=DLPCA(X=X,n=n,p=p,m=m,K=K,L=L)
V=DLPCA_result$V
MSEpca_result=MSEpca(V=V,X=X,n=n,p=p,m=m,K=K,L=L)
MSE_PCA=MSEpca_result$MSEpca
Run the code above in your browser using DataLab