### Example
dat <- gendata_Fac(n = 300, p = 500)
res <- Factorm(dat$X)
X <- dat$X
# ex1: H01 is false
G2 <- 1:200; # all are nonzero loading vectors
FacRowMinST(X, G2=G2, alpha=0.05, sub.frac=0.5)
FacRowMinST(X, q= 6, G2=G2, alpha=0.05, sub.frac=0.5) # specify the true number of factors
# ex2: H01 is true
G2 <- 1:500 # all are zero loading vectors
FacRowMinST(X, G2=G2, alpha=0.05, sub.frac=0.5)
FacRowMinST(X, q= 7, G2=G2, alpha=0.05, sub.frac=0.5) # specify a false number of factors
Run the code above in your browser using DataLab