n <- 100
Z <- matrix(rnorm(n * 5), n, 5)
W <- matrix(rnorm(n * 5), n, 5)
sigma_eta <- diag(0.15, ncol(Z))
sigma_delta <- diag(0.3, ncol(W))
Cond_Gaussian(W, Z, sigma_eta, sigma_delta,
alpha_1 = 0.1, alpha_2 = 0.1,
alpha_1_list = NULL,
alpha_2_list = NULL,
max_iter = 1, tol = 1e-6, label_name = TRUE, symmetry = 'NULL')
Run the code above in your browser using DataLab