dat <- gendata_Fac(n = 300, p = 500)
res <- gsspFactorm(dat$X)
assessBsFun(res$sphB, dat$B0)
n <- nrow(dat$X)
res <- gsspFactorm(dat$X, lambda1=0.05*n^(1/4), lambda2=9*n^(1/4))
assessBsFun(res$sphB, dat$B0)
Run the code above in your browser using DataLab