powered by
block_diag_gen(p)
set.seed(123) true_L_block_diag <- block_diag_gen(p = 50)
Run the code above in your browser using DataLab