# NOT RUN {
## generate 1000 samples from {M,U,V = diag()}
samples1000= rmxnorm(1000, diag(3))
## test for LLN : taking average of 1000 samples
average1000 = apply(samples1000, c(1,2), mean)
## evaluate the density for average matrix
density1000 = dmxnorm(average1000, diag(3))
# }
Run the code above in your browser using DataLab