n <- 100
Z <- matrix(rnorm(n * 10), n, 10)
W <- matrix(rnorm(n * 5), n, 5)
sigma_eta <- diag(0.15, ncol(Z))
sigma_delta <- diag(0.3, ncol(W))
Joint_Gaussian(W, Z, sigma_eta, sigma_delta,
alpha_1 = 0.1, alpha_2 = 0.1,
alpha_1_list = c(0.1, 0.3),
alpha_2_list = c(0.1, 0.3),
label_name = TRUE)
Run the code above in your browser using DataLab