spca_randtest function

Monte Carlo test for sPCA