library(MASS)
library(mvtnorm)
set.seed(100)
p <- 400
n <- 120
K <- 5
true_non_zero <- 100
B <- matrix(rnorm(p * K), nrow = p, ncol = K)
FX <- MASS::mvrnorm(n, rep(0, K), diag(K))
U <- mvtnorm::rmvt(n, df = 3, sigma = diag(p))
mu <- c(rep(1, true_non_zero), rep(0, p - true_non_zero))
X <- rep(1, n) %*% t(mu) + FX %*% t(B) + U # The observed data
results <- ttest.TFM(X, p, alpha = 0.05)
print(results)
Run the code above in your browser using DataLab